Menu Popup sur USF et Module de class

[wilfried_42]

Bonjour à tous

Voila mon probleme

J'ai un Userform avec 31 labels defini dans un module de class, j'ai defini un menu Popup.

Quand je passe sur les labels (Mes dates), ces labels se colorient en rouge et en gras

Quand je clique dessus, mon menu Popup s'affiche tres bien

Mais (il y en a toujours un) quand je clique sur un élément de mon menu, rien ne se passe

J'ai essayé de placer la macro postes_lance dans un module standard, dans le module de class, rien n'y fait

j'ai deja dans des applis des menu popup sur Usf qui fonctionnent tres bien, mais c'est la premiere fois que j'essaie de l'associer à des éléments definis dans un module de class

la macro est actuellement dans le module de class (Saisie)
Le menu est initialisé dans le Module1 et lancé via l'interruption Click dans le module de class

Merci à vous pour vos réponses

Cordialement

 

[MichelXld]

Re : Menu Popup sur USF et Module de class

bonjour cher Wilfried


Dans le module 1, modifie la procédure init_menu ainsi:

Sub init_menu()
   Dim i As Integer, sm As Variant
   On Error Resume Next
   Application.CommandBars("Postes").Delete
   On Error GoTo 0
   Set cbar = Application.CommandBars.Add("Postes", msoBarPopup)
   With cbar
        For i = 1 To Range("postes").Cells.Count
            Set sm = cbar.Controls.Add(msoControlButton, 1, , , True)
            sm.Caption = Range("postes")(i) '& " " & "postes_lance(" & i & ")"
            sm.Tag = "Saisie.postes_lance(" & i & ")"
            sm.OnAction = "TestMacro"
        Next i
    End With
End Sub

et ajoute une nouvelle procédure dans le module 1:

Sub TestMacro()
    MsgBox CommandBars.ActionControl.Tag
End Sub

Bon après midi
MichelXld

 

[wilfried_42]

Re : Menu Popup sur USF et Module de class

re:


Un Grand MERCI Michel, Finalement c'est surement le passage de valeurs qui devait poser problemes 😛


Merci encore et @+

 

[wilfried_42]

Re : Menu Popup sur USF et Module de class

re:

Je joins le fichier avec le bug corrigé pour les forumeurs

Menu popup sur Usf lié à un Module de class

Encore un grand merci à Michel 😀😀

 

[obde]

Re : Menu Popup sur USF et Module de class

Un exemple très utile en effet 🙂