Ajout Face ID menu Contextuel

Bonjour ä tous,

J'aimerai ajouter un FaceID à mon menu contextuel.

J'ai donc le code ci dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test_bar_menu() Dim cmdBtn As CommandBarButton On Error Resume Next With Application .CommandBars("Cell").Controls("ESG").Delete Set cmdBtn = .CommandBars("Cell").Controls.Add(Type:=msoControlButton) End With With cmdBtn .FaceId = 326 .Caption = "ESG" .Style = msoButtonCaption .OnAction = "AfficheForm" End With End Sub
Ou j'ai précisé le numero de FaceID que je voulais.

Quand je fais "Click Droit" tout fonctionne Cad que j'ai le "ESG" dans ma barre contextuel et lorsque je clique dessus ma macro "Afficher Userform" se declenche. Cependant, je n'ai pas l'image correspondant au FaceID bien que je l'ai précisé dans mon code.

Avez vous des idées ?

Merci

Commence par supprimer le On Error Resume Next et VBA pourra peut-être t'indiquer quelle est la nature du problème.

As-tu testé avec un autre numéro de bouton ?
Le 326 n'est peut-être pas compatible avec ta version EXCEL.

re

re
bonjour
faudrait il encore lui attribuer le bon style

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test_bar_menu()
     With Application.CommandBars("Cell")
        .Reset
         With .Controls.Add(Type:=msoControlButton)
            .FaceId = 326
            .Caption = "ESG"
            '.Style = msoButtonCaptionicon
            .Style = msoButtonIconAndCaption
            .OnAction = "AfficheForm"
        End With
    End With
End Sub

et d'ailleurs cette ligne n'est pas obligatoire car le style par defaut est complet tu peux donc même la supprimer
;)