Bonjour à tous,

Voila mon Pb, J'ai créer 2 element de Menu personnalisé depuis un Module de classe comme ceci...
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
23
24
25
26
       
Private Sub CreateItemMenuWmb()
   Dim PMnu As Object
   DeleteItemMenuWmb
   Set PMnu = CommandBars(cWmb).Controls.Add(Type:=msoControlPopup, Before:=8)
   With PMnu
      .Caption = "Mode Edition"
   End With   
With CommandBars(cWmb).Controls("Affichage")
      .Controls.Add(Type:=msoControlButton).Caption = cM52
      .Controls(cM52).OnAction = "MenuClick"
      .Controls(cM52).Tag = "52"
   End With
   With CommandBars(cWmb).Controls(cM2)
      .Controls.Add(Type:=msoControlButton).Caption = cM53
      .Controls(cM53).OnAction = "MenuClick"
      .Controls(cM53).Tag = "53"
   End With
   Set PMnu = Nothing
End Sub

Private Sub MenuClick
   Select Case CommandBars.ActionControl.Tag
   'Réponse au evenements...
   End Select
End sub
Mais voila, lorsque je clique sur un élement de menu, Excel m'affiche une boite
Impossible de trouver la macro "MenuClick"
Tous ça, parce que MenuClick est referencé dans mon module de classe.
En effet lorsque je reference "MenuClick" dans un module normal, cela fonctionne parfaitement...
Ma question est:
Y a t'il moyen de renseigné OnAction de manière à ce que je puisse répondre à mes évenements de click dans mon module de classe

D'avance Merci de vos réponses

Laurent