suppression bouton par macro

[bernard91]

Bonjour le Forum,
Je viens vous soumettre un petit problème:
Dans un classeur, j'ai sur une feuille un boutaon qui me permet de dupliquer cette même feuille. Et je voudraais pouvoir supprimer le bouton de lancement de la macro sur les feuilles dupliquées.
alors si quelq'un a un bout de code

Activedheet.Shapes('ToggleButton1').Select
Selection.Delete

cela fonctionne, mais je n'arrive pas à faire la même chose avec un bouton de commande créée par Affichage/Barre d'outils/Formulaires

Merci de votre aide

 

[Amydale]

Effectivement, toutes les shapes se suppriment tres facilement avec
ActiveSheet.Shapes('MonBouton').Delete

Mais pas les objets vb (Barre outils/Boite de contrôles, je pense que tu as inversé les 2).
Je pense qu'on ne peut pas car nous ne sommes pas en mode création.

Cependant, une bidouille en attendant (pas terrible du tout), tu peux toujours masquer le bouton
Activesheet.Commandbutton1.visible=false
Mais inconvénient, si on passe en mode édition, pouf il réapparait )

J'vais jeter un coup d'oeil, ca m'interesse

 

[Amydale]

Effectivement, toutes les shapes se suppriment tres facilement avec
ActiveSheet.Shapes('MonBouton').Delete

Mais pas les objets vb (Barre outils/Boite de contrôles, je pense que tu as inversé les 2).
Je pense qu'on ne peut pas car nous ne sommes pas en mode création.

Cependant, une bidouille en attendant (pas terrible du tout), tu peux toujours masquer le bouton
Activesheet.Commandbutton1.visible=false
Mais inconvénient, si on passe en mode édition, pouf il réapparait )

J'vais jeter un coup d'oeil, ca m'interesse

 

[Amydale]

oups petit bug. désolé

 

[Bernard91]

Le forum, Amydale,
J'ai réussi une manip

Activedheet.Shapes('Button 8').Select
Selection.Delete
ou
Activedheet.Shapes('ToggleButton1').Select
Selection.cut

J'avais peur que le numéro en l'occurrence 8, s'incrémente changeant ainsi le nom à chaque nouvelle feuille mais en fait non.

Merci

 

[Bernard91]

Le Forum,
Je me suis réjouis trop vite, pourt une raison que j'ignore, ma manip ne fonctionne plus.
Donc si vous avez une solution plus sûre, je suis preneur
Bonne soirée