macro pour delete de "boutons"

[takeiteasy]

bonjour à tous,

par une erreur de manipulation (recopie d'un autre tableau) je pense j'ai pollué certaines feuilles excel2007 avec plusieurs centaines d'objets de type "bouton".

y a-t-il moyen de les deleter par une macro?
J'ai commencé à les éliminer par le voler de sélection mais cela provoque plantage etc et en plus cela est tres lent

merci d'avance

take it easy

 

[Spitnolan08]

Re : macro pour delete de "boutons"

Bonsoir,

Une solution :

Sub DetruitCB()
Dim cb As Shape
For Each cb In ActiveSheet.Shapes
    If Left(cb.Name, 13) = "CommandButton" Then cb.Delete
Next
End Sub

Cordialement

 

[takeiteasy]

Re : macro pour delete de "boutons"

merci beaucoup