Supprimer CommandButton par macro

[schmail]

Bonsoir tout le monde

Je souhaite supprimer un CommandButton qui se trouve sur une feuille de calcul par macro. J'ai essayé :

ActiveSheet.Buttons("Bouton1").Delete

et j'obtiens : "Impossible de lire la propriété Buttons de la classe Worksheet"
tout ceci sous xl2000.

Merci d'avance pour le coup de main @+

 

[@Christophe@]

Bonsoir Schmail

Essaye comme ceci, cela marchera beaucoup mieux tu verras


ActiveSheet.Shapes("commandbutton1").Delete


@Christophe@

 

[schmail]

Merci @Christophe@

J'avais trouvé cela sur MPFE mais trop radical !!!
Cela supprime tout les buttons et tout les CommandButtons...

For Each patente In ActiveSheet.Shapes
If patente.Type = 12 Or patente.Type = 8 Then patente.Delete
Next

@+