Bonjour à tous,
j'ai un problème j'ai suivi un tuto pour realiser une bouton dans le menu contextuel excel mais rien n'apparait.
voici le code
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 Sub AddToCellMenu() Dim ContextMenu As CommandBar Dim MySubMenu As CommandBarControl Call DeleteFromCellMenu Set ContextMenu = Application.CommandBars("Cell") ContextMenu.Controls(4).BeginGroup = True ' Add one custom button to the Cell context menu. With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2) .OnAction = "BoutonAllerA" .FaceId = 59 .Caption = "aller au detail" .Tag = "My_Cell_Control_Tag" End With End SubMerci de m'aider à trouver ou je merdouille ? Se peut il que le contextmenu soit verouillé dans une quelconque option?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Workbook_Activate() ' AddToCellMenu End Sub
Partager