sélection et suppression

[poipoi]

bonjour tout le monde
je fais un copier coller de tableau pris sur une page intranet
or je cherche par macro à sélectionner tout ce qui n'est pas utile dans ma feuille (picture) et à le supprimer.
c'est l'équivalent de la commande de l'outil" Rechercher et sélectionner" et "masquer tout", sauf que je voudrais "tout supprimer".

c'est tout simple mais je n'y arrive pas.
une petite idée??
merci par avance

 

[Lolote83]

Re : sélection et suppression

Salut Poipoi,
N'ayant pas de fichier pour faire des tests, voici peut être quelque chose qui pourrai t'aider
Code à insérer dans un module standard

Sub TEST()
    For Each xImage In ActiveSheet.Shapes
        'MsgBox xImage.Name
        xImage.Delete
    Next xImage
End Sub

Ce code recherche dans la feuille active toutes les images et les supprime.
@+ Lolote83

 

[poipoi]

Re : sélection et suppression

hello Lolote83
impec ta macro...
eh ben voilà un vendredi qui commence bien !!
merci et bonne journée à toi

(gare aux intempéries..!)

 

[Pierrot93]

Re : sélection et suppression

Bonjour,

une autre approche qui évite la boucle :

ActiveSheet.Shapes.SelectAll
Selection.Delete

bonne journée
@+

 

[poipoi]

Re : sélection et suppression

Pierrot93 Bonjour!!
et merci déjà
une question pour quelqu'un qui a du mal avec les macros: la boucle dont tu parles c'est dans la proposition de Lolote83: "Next xImage"?

 

[Pierrot93]

Re : sélection et suppression

Re,

la boucle dont tu parles c'est dans la proposition de Lolote83: "Next xImage"?

oui, la boucle "for each" qui passe en revue la collection "shapes"...

 

[poipoi]

Re : sélection et suppression

ok, donc la tienne sélectionne en une fois l'ensemble "shapes"?

 

[Pierrot93]

Re : sélection et suppression

Re,

ok, donc la tienne sélectionne en une fois l'ensemble "shapes"?

tout à fait

 

[poipoi]

Re : sélection et suppression

eh ben... bonne journée à toi Pierrot!!

 

[Staple1600]

Re : sélection et suppression

Bonjour à tous

poipoi
Tu peux aussi utiliser les services d'Excel sans macro sur ce coup là 😉
1) F5
2) ALT+c
3) ALT+j
4) ENTER
5) SUPPR

 

[poipoi]

Re : sélection et suppression

super j'apprends encore un peu plus.. bien vu les raccourcis!
merci Staple1600