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?

[wilfried_42]

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

[Pierre Fauconnier]

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...

[Laurent GAUDILLIER]

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 :

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

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

[Pierre Fauconnier]

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

Code :

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

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 :

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

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 :

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

MonBouton.OnAction = "OnClick"

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

[Laurent GAUDILLIER]

Bonsoir Pierre

Effectivement, tu n'as pas de solution miracle, c'est bien ce que je craignais ...
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