Discussion :

[rampage92]

Bonjour ä tous,

J'aimerai ajouter un FaceID à mon menu contextuel.

J'ai donc le code ci dessous :

Code :

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

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

[Menhir]

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

[laurent_ott]

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

[patricktoulon]

re
bonjour
faudrait il encore lui attribuer le bon style

Code :

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

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