[XL-2007] Problème pour associer une macro à un élément personnalisé du menu contextuel des cellules (clique droit) [Résolu]

[Alexapr]

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 :

Code :

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

Tout le code est placé sur la feuille pour laquelle je veux ce menu personnalisé.

Merci à l'avance pour votre aide,

Alexapr

[CODYCO]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 = "Macro_Alert"
    End With
End Sub
 
Public Function Alert()
    MsgBox ("AlerteProjet")
End Function

ET dans un module...

Code :

1
2
3
Sub Macro_Alert()
MsgBox "la ca marche"
End Sub

[Alexapr]

Ça marche à merveille !

C'est si simple avec les bonnes choses aux bons endroits !

Merci CODYCO,