Discussion :

[Laurent GAUDILLIER]

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

[Gorfael]

Salut Laurent GAUDILLIER et le forum
enlever le private,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub MenuClick
   Select Case CommandBars.ActionControl.Tag
   'Réponse au evenements...
   End Select
End sub

mais je pense qu'il faut que la macro MenuClick se trouve dans un module général, comme pour une Function : quand tu veux qu'excel travaille tout seul, faut pas trop lui compliquer la tâche
À moins que la syntaxe de OnAction admette une syntaxe te permettant la désignation du module
.
Tu peux tenter avec "AAA.MenuClick" ou "AAA!MenuClick" (AAA étant le nom informatique de la feuille).
Mais ce matin, je suis flemmard, et j'ai pas envie de tester.
A+

[Laurent GAUDILLIER]

Bonsoir,

J'ai tout essayer mais sans resultats. Je peut toujours mettre MenuCklick dans
un module standard mais je perd ainsi l'avantage de la POO, c'est dommage
Je vais devoir me résigné

[Pierre Fauconnier]

Comme le dit Gorfaël, tu peux utiliser la procédure en la préfixant avec l'objet issu de la classe, du moment que tu la mette Public.

[Laurent GAUDILLIER]

Bonjour à tous,

Le Pb est que mème en préfixant MenuClick du nom de mon instance de classe
en l'ocurrence ici : LGProc.Menuclick , ça ne fonctionne pas !
je précise que mon sub MenuClick est déclaré Public

Merci quand mème pour votre aide
Amicalement Laurent

[Pierre Fauconnier]

Peux-tu donner le code qui appelle cette procédure?