effacer image

[juiklopm]

Bonjour à toutes et à tous,

Voilà, cela à l'air bête mais je cherche à effacer une série d'images sur une feuille Excel portant toutes le nom "popol"

J'ai écrit le code VBA suivant mais cela ne fonctionne pas


For Each Shapes in ActiveWorksheet
If Shapes.Name = "popol" then
Shapes.Select
Selection.Delete
End If
Next



Je suis débutant et je maîtrise encore très peu VBA.

P.S. : Les images sont sur la feuille même et non dans un contrôle de type
Userform, Picturebox ou autre


Merci à tous


Eric - Paris

 

[myDearFriend!]

Bonsoir Eric, le Forum.

En supposant que tes Shapes se nomment "Popol1", "Popol2", etc...

Dim S As Shape
For Each S In ActiveSheet.Shapes
  If Left(S.Name, 5) = "Popol" Then
    S.Select
    Selection.Delete
  End If
Next S


Cordialement,
Didier_mDF

 

[BobStriker]

Bonjour Juk,MyDearFRiend,le Forum,

mydearfriend,même chose pour effacer des boutons ?
merci

 

[Eric C]

Bonjour le forum
Bonjour Eric, bonjour Didier & bonjour Bobstriker

Pour des boutons tu places ceci dans ton module :

Sub Sup_Boutons()
Dim CommandButton As Object
For Each CommandButton In ActiveSheet.OLEObjects
CommandButton.Delete
Next CommandButton
End Sub

@ ++ Eric C

 

[BobStriker]

Merci de ta réponse Eric.
bonne continuation.