raphael.diaz
XLDnaute Nouveau
SITUATION : Sur un worksheet de mon classeur (ThisWorkbook ou un autre), j’utilise cette macro qui me permet quand on click droit sur une cellule précise de rajouter un bouton de sélection. Normalement, quand on clique sur ce nouveau bouton on devrait appeler la macro « test ». La macro « test » est dans le même onglet (classeur).
CODE :
Sub UpdateVersionPopupControls(MyCurrentVersion As String)
''Description: Créer le bouton de version et l’ajoute au menu contextuel
'------------------------------------------------------------------------------------
' Supprime le menu si déjà existant
Call DeleteVersionItemsInPopup
'Rajout du menu déroulant dans la cellule avec la version 1
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
.Caption = "Version 1"
.OnAction = Worksheets("MyWorksheet").test
‘ .OnAction = “test’
.Tag = "brccm"
End With
End Sub
PROBLEME:
Cependant la macro "test" est appelée directement au click droit sur la cellule et non pas à l’appui du bouton avec : .OnAction = Worksheets ("OngletTest").test
Sinon j’ai ce message d’erreur « Impossible de trouver la macro Nomdufichier.xls !test’ » avec : .OnAction = “test’ la macro
CODE :
Sub UpdateVersionPopupControls(MyCurrentVersion As String)
''Description: Créer le bouton de version et l’ajoute au menu contextuel
'------------------------------------------------------------------------------------
' Supprime le menu si déjà existant
Call DeleteVersionItemsInPopup
'Rajout du menu déroulant dans la cellule avec la version 1
With Application.CommandBars("cell").Controls.Add(Type:=msoControlButton, before:=1, temporary:=True)
.Caption = "Version 1"
.OnAction = Worksheets("MyWorksheet").test
‘ .OnAction = “test’
.Tag = "brccm"
End With
End Sub
PROBLEME:
Cependant la macro "test" est appelée directement au click droit sur la cellule et non pas à l’appui du bouton avec : .OnAction = Worksheets ("OngletTest").test
Sinon j’ai ce message d’erreur « Impossible de trouver la macro Nomdufichier.xls !test’ » avec : .OnAction = “test’ la macro
