[VBA-E] Création d'un bouton dans "Worksheet Menu Bar"

Bonjour,

Je souhaite crééer directement dans la barre d'outils "Worksheet Menu Bar" un bouton de type "msoControlButton, ID:=2950" et y affecter une macro nommé "Start".

J'ai trouvé cela pour créer le bouton:

Code:

---

1 2 3

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _ msoControlButton, ID:=2950, Before:=11

---

...Mais je n'arrive pas à terminer... je souhaite rajouter un texte et y affecter la macro start


Comment Faire ?

Merci

A+

Dams'

Code:

---

1 2 3 4 5 6 7 8 9 10

Set btnCtrl = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:= _ msoControlButton, ID:=2950, Before:=11, Temporary:=True) With btnCtrl .Caption = "M&a Macro" .OnAction = "Start" .Style = msoButtonCaption .TooltipText = "Lancer ma super macro" .BeginGroup = True .Visible = True End With

---

M E R C I ! ! ! T R O P B I En !!