Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT"

[GuillaumA]

Bonjour,

Comme le titre du post l'indique, je recherche une formule de macro afin de supprimer tous les boutons d'une page commençant par "BTT".

Merci de votre considération et mes meilleurs voeux pour cette nouvelle année!

Guillaume

 

[Gorfael]

Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT"

Bonne année, bonne santé GuillaumA et le forum

Dim Ctrl As Shape
If ActiveSheet.Name Like "BTT*" Then
    For Each Ctrl In ActiveSheet.Shapes
        Ctrl.Delete
    Next Ctrl
End If

ou en plus court

If ActiveSheet.Name Like "BTT*" Then
     ActiveSheet.Shapes.SelectAll
     Selection.Delete
End If

A+

 

[GuillaumA]

Re : Formule Macro pour supprimer tous les boutons d'une page commencant par "BTT"

Bonjour Gorfael,
Un grand merci à toi pour ces deux solutions. Cela me retire une épine du pied.

Bonne après-midi de reprise

Guillaume