bonjour a tous

je remplace petit a petit mes menu créés avec des combobox par des commandbars popup perso

j'ai un petit soucis avec ca et je n'ai rien trouvé sur le net

le onaction des boutons fonction quand les subs sont dans une module standard mais si elle sont dans le userform ca ne fonctionne pas

quelqu'un aurait une idée sur la question?
exemple simple
mettez un label1 dans un userform puis
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
27
28
29
30
31
32
'Affiche la barre d'outils lorsque vous cliquez sur le label.
Private Sub Label1_Click()
  On Error GoTo suite
     CommandBars("MenuUSF").Delete
suite:
 
    Dim Barre As CommandBar
 
    Set Barre = CommandBars.Add("MenuUSF", msoBarPopup, False, True)
 
    With Barre.Controls.Add(msoControlButton, 1, , , True): .Caption = "bouton 1": .FaceId = 366: .OnAction = "Macro1": End With
 
    With Barre.Controls.Add(msoControlButton, 2, , , True): .Caption = "bouton 2": .FaceId = 257: .OnAction = ".Macro2": End With
 
        Application.CommandBars("MenuUSF").ShowPopup 'PosX, PosY
End Sub
 
 
 
'Supprime la barre d'outils lors de la fermeture du UserForm
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    On Error Resume Next
    CommandBars("MenuUSF").Delete
End Sub
 
Function Macro1()
    MsgBox "Essai 01"
End Function
 
Private Sub Macro2()
    MsgBox "Essai 02"
End Sub