Suppression de tous les boutons dans une feuille de calcul

Bonjour le forum,

Dans une feuille de calcul j’ai des « boutons » (contrôle de formulaire) et « bouton de commande » (contrôle ActiveX) pour lancer différentes macro.

Je souhaiterai pouvoir supprimer tous les boutons et les boutons de commandes en une seul fois

J’ai utilisé la ligne de commande : « ActiveSheet.Buttons.Delete » qui fonctionne très bien pour supprimer tous les boutons mais en l'appliquant au bouton de commande par « ActiveSheet.CommandButton.Delete » ça ne fonctionne pas.

Quelqu’un peut m’apporter une aide ? Autre question comment faire pour masquer et non pas supprimer les boutons commandes ?

Cordialement.

C'est bon j'ai trouvé la solution. Les lignes de commandes sont :

ActiveSheet.Buttons.Delete 'pour supprimer tous les boutons

ActiveSheet.Shapes.SelectAll 'pour supprimer tous les boutons de commande s'il en existe au moins un sinon ça bug

Selection.Delete

Si je veux masquer un bouton de commande au-lieu de le supprimer je peux utiliser la ligne de commande :

'ActiveSheet.Shapes("CommandButton1").Visible = False 'CommandButton est le nom du bouton à masquer

Je mets en résolu ma question.