sélection et suppression

L

Lolote83

XLDnaute Barbatruc

• 28 Novembre 2014

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 28 Novembre 2014

• #3

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..!)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2014

• #4

Re : sélection et suppression

Bonjour,

une autre approche qui évite la boucle :

Code:

ActiveSheet.Shapes.SelectAll
Selection.Delete

bonne journée
@+

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 28 Novembre 2014

• #5

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"?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2014

• #6

Re : sélection et suppression

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 28 Novembre 2014

• #7

Re : sélection et suppression

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2014

• #8

Re : sélection et suppression

Re,

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

Cliquez pour agrandir...

tout à fait

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 28 Novembre 2014

• #9

Re : sélection et suppression

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Novembre 2014

• #10

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

 

Dernière édition: 28 Novembre 2014

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 28 Novembre 2014

• #11

Re : sélection et suppression

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

 

Vote positif 0 Vote négatif