menu clic droit bouton supplementaire

[michel]

bonsoir a tous

est il possible de creer un bouton supplementaire dans le menu contextuel du clic droit pour lancer une macro dans une application

merci a tous et bonne soiree

 

[Sergio]

Bonsoir

Oui c'est possible d'ajouter ou d'enlever n'importe quoi.
Ce bout de code va ajouter un bouton "CALCUL" qui va lancer la macro "MA MACRO".

With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Style = msoButtonIconAndCaption
.FaceId = 1552
.BeginGroup = True
.Caption = "CALCUL"
.OnAction = "MA MACRO"
End With

le "style " permet de définir si le bouton est composé de texte seul, texte et icone ou icone seule.
le "faceid" est l'icone à afficher sur le bouton (ici 1552 donne un petit crayon)
"begin group " définit si le nouveau bouton sera séparé des autres par une ligne horizontale ou au contraire accolé.
"Caption" est le texte qui apparait sur le bouton
"on action" la macro à lancer quand le bouton est actionné

Il est possible de créer des sous-menus en utilisant msocontrolpopup
Si tu désires un exemple, pas de problème.

Bonne soirée

Sergio

 

[michel]

MERCI SERGIO
Je viens de faire un essais et c'est justement ce que je souhaitais, simplement une petite question ou trouver la liste des différents code pour le "style et facied"
merci et bonne journee

 

[effeZERO]

Bonjour Michel, Sergio, le forum,
Je joint à ce post un fichier html où se trouve la liste des codes. L'adresse avait été donnée par quelqu'un sur ce forum. C'est peut-être bien @+Thierry, si vous faites une recherche vous retrouverez le post.
Bon week-end !
Franck

 

[effeZERO]

Oups, je poste à nouveau le fichier.
Franck

 

[michel]

merci a tous