Grant copie régulièrement les informations des pages Web et les colle dans des feuilles de calcul. Il se retrouve non seulement avec des données brutes, mais aussi avec d’autres éléments, tels que des cases à cocher, des images, des logos, etc. Grant veut un moyen facile de se débarrasser de tous ces éléments non liés aux données.

Lorsque vous collez pour la première fois à partir du Web dans une feuille de calcul Excel, vous souhaiterez peut-être envisager d’utiliser Collage spécial pour effectuer quelque chose comme Coller en tant que texte ou Coller les valeurs. Cela devrait éviter de placer ces objets indésirables dans votre feuille de calcul en premier lieu.

Si Collage spécial ne donne pas les résultats escomptés ou si vous travaillez avec une feuille de calcul dans laquelle les informations et les objets ont déjà été collés, vous pouvez essayer plusieurs choses. La première chose que la plupart des gens essaient est d’utiliser Go To Special, de cette manière:

  1. Appuyez sur F5. Excel affiche la boîte de dialogue Atteindre.

  2. Cliquez sur le bouton Spécial. Excel affiche la boîte de dialogue Aller à spécial.

(Voir la figure 1.)

  1. Sélectionnez l’option Objets.

  2. Cliquez sur OK.

Lorsque vous effectuez cette opération, Excel sélectionne un certain nombre d’objets dans la feuille de calcul et vous pouvez ensuite appuyer sur la touche Suppr pour vous en débarrasser.

Le problème est que cette méthode ne sélectionne pas tous les éléments non-données dans la feuille de calcul; il n’en sélectionne qu’un sous-ensemble, les éléments considérés comme des «objets» par Excel.

Une meilleure solution consiste à utiliser une macro pour sélectionner toutes les formes dans la feuille de calcul, puis les supprimer. C’est assez simple à faire, en utilisant une macro comme celle-ci:

Sub DeleteAllShapes1()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next End Sub

La macro effectue une boucle sur chaque forme de la feuille de calcul active et supprime chacune d’entre elles. Vous pouvez développer un peu la macro en supprimant également tous les liens hypertexte collés dans la feuille de calcul. Il suffit d’ajouter une seule ligne:

Sub DeleteAllShapes2()

Dim shp As Shape     For Each shp In ActiveSheet.Shapes         shp.Delete     Next     ActiveSheet.Hyperlinks.Delete End Sub

Si, pour une raison étrange, ces macros ne suppriment pas tous les éléments non-données que vous souhaitez supprimer, il existe une autre approche que vous pouvez utiliser:

faites un arrêt dans NotePad avant Excel. Collez simplement vos données Web dans un document vierge du Bloc-notes, puis sélectionnez ces informations (après avoir été collées) et copiez-les dans le Presse-papiers. Ensuite, collez-le dans Excel.

La seule chose qui reste devrait être des données directes.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (6951) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Get_Rid_of_Web_Stuff [Supprimer les trucs Web].