Bonjour,
Lorsque je fais un clique droit sur une cellule de ma feuille excel, une macro se lance pour cacher les options habituelles du menu contextuel des cellules et ajouter la commande personnalisée "Alerte sur le projet". Alors le menu (clique droit) se lance et seule mon option personnalisée "Alerte sur le projet" est disponible. Par contre, la macro "Alert" associée à cet option (avec .OnAction) ne veut pas se lancer lorsque je clique dessus. Excel me renvoi l'erreur : Impossible de trouver la macro 'Test.xlsm!Alert'.
Voici le code :
Tout le code est placé sur la feuille pour laquelle je veux ce menu personnalisé.
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 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) For i = 1 To CommandBars("Cell").Controls.Count 'Cache les options du menu contextuel normal CommandBars("Cell").Controls(i).Visible = False Next With Application.CommandBars("Cell").Controls.Add(msoControlButton, Temporary:=True) 'Bouton Alerte .Caption = "Alerte sur le projet" .FaceId = 1678 .OnAction = "Alert" End With End Sub Public Function Alert() MsgBox ("AlerteProjet") End Function
Merci à l'avance pour votre aide,
Alexapr
Partager