Discussion :

[damsmut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'

[dadavyvy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[damsmut]

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