Bonjour,

J’ai créé un menu contextuel (Mon menu contextuel) avec un sous menu (coupe).

J’ai réussi a placer une icône (FaceId) devant le sou menu, mais je n’arrive pas a faire de même devant le menu contextuel.

Savez-vous comment faire ?

Merci par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub menu_contextuel()
Dim Cpop1 As CommandBarPopup
Dim Cbut As CommandBarButton
Dim MaBarre As CommandBar
 
Set MaBarre = Application.CommandBars("cell")
 
Set Cpop1 = MaBarre.Controls.Add(msoControlPopup)
With Cpop1
.Caption = "Mon menu contextuel" '<-- label du sous-menu
 
End With
 
 
Set Cbut = Cpop1.Controls.Add(Type:=msoControlButton)
With Cbut
.FaceId = 266
.Caption = "coupe"
.OnAction = "Macro1"
End With
 
End Sub