On action d'un item popup menu perso vers sub ou fonction interne dans l'userform
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:
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 |