Pb Menu OnAction dans Module de Classe

Bonjour à tous,

Voila mon Pb, J'ai créer 2 element de Menu personnalisé depuis un Module de classe comme ceci...

Code:

---

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

Salut Laurent GAUDILLIER et le forum
enlever le private,

Code:

---

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 :D
À 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+

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:oops:
Je vais devoir me résigné :cry:

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.

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

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

Bonjour à tous (edition, apres verif)

une tite question :
Ton module de classe, ne concerne pas ton menu popup mais les différents objets qui sont placés. Cela impliquent que seuls les événements de ces contrôles ne peuvent être gérés par ton module de classe. l'événement généré par ton menu s'effectue dans un module standard.

regarde le fichier joint

Salut Wilfried,

C'était la raison d'être de ma question. J'ai supposé que la procédure de la classe devait être appelée suite à un événement... Je ne vois pas trop comment faire dans ce cas...

Ce serait bien que l'on ait une explication du contexte...

Bonsoir,
Et bien voila pour Shématiser:

Module de Classe CMenus
dans CMenus, je gère la contruction de ma MenuBar et j'ai quelques
routines qui permettent de grisé un element de menu...

module de classe CProc
C'est là que je souhaite gèrer la réponse aux click de ma MenuBar
Je précise que CProc initialise instance de CMenus

Effectivement, en plaçant ma Sub MenuClick dans un module Standard, ça fonctione parfaitement Ex:
Module Standard:

Code:

---

1 2 3 4

Public Sub MenuClick() CProc.MenuClick ' Appel de ma sub MenuClick dans CProc end Sub

---

Mais on doit reconnaitre que ça fait un peu "Bidouille"
Donc, je répète ma question:
Ya t'il un moyen de manière à ce que je puisse récupèrer Les clicks de mes menus directement dans mon CProc


Ce qui m'étonne, c'est pourquoi Menu.OnAction ne puisse pas directement appeler une méthode de classe publique soit au travers d'une autre classe(CProc), soit mème une méthode de classe de ce mème module en l'occurence (CMenu) pour ce qui me concerne
Pae Exemple Menu.OnAction = "CProc.MenuClick" et là, ça ne fonctionne pas, il m'affiche que la Sub "CProc.MenuClick" est introuvable...

Amicalement Laurent

Si cProc est le nom de ta classe, j'ai des doutes que

Code:

---

1 2 3 4

Public Sub MenuClick() CProc.MenuClick ' Appel de ma sub MenuClick dans CProc end Sub

---

fonctionne, car il faut créer une instance de la classe et renseigner le nom de cette instance...

Cela étant, je pense que c'est la seule solution et je ne vois pas trop en quoi cela fait bidouille. Tu ne sais renseigner comme procédure OnAction qu'une procédure publique d'un module standard.

Tu devrais donc avoir quelque part dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10

public MaProc As cProc   Sub Initialisation() Set MaProc As New cProc ... End Sub   Sub OnClick() MaProc.OnClick End Sub

---

et tu peux alors, à la création du bouton, préciser

Code:

---

MonBouton.OnAction = "OnClick"

---

Perso, je ne trouve pas que cela fait bidouille et cela n'enlève rien à la programmation POO

Bonsoir Pierre

Effectivement, tu n'as pas de solution miracle, c'est bien ce que je craignais ... :oops:
Perso moi qui suis un adept de Delphi, je m'aperçois que VB à malheureusement beaucoup de carences au niveau POO !! :?
En effet, sous Delphi un Pointeur de méthode peut pointer sur une méthode classe sans aucun Pb

Je vais devoir faire avec :(

Merci à toi de t'ètre interressé à mon Pb :)

Bonsoir Laurent