Discussion :

[patricktoulon]

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

[joe.levrai]

Bonjour,

certes, la création de la barre est possible dans le module du Userform, mais les procédures et fonctions doivent être stockées dans un module standard sinon OnAction ne peut pas les appeler car la construction de la chaine d'appel de la procédure/fonction ne peut pas "piocher" dans un module non standard (Module Feuille, Module Userform) visiblement.


du coup, créer la barre depuis le module standard (qui deviendrait un module où on stocke la création de la barre et ses procédures ?) ne devient qu'un choix dépendant du contexte d'utilisation


Module Standard avec création possible de la barre

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
Sub CreationMenu()
    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
End Sub
 
Function Macro1()
    MsgBox "Essai 01"
End Function
 
Sub Macro2()
    MsgBox "Essai 02"
End Sub

Module Userform, on on crée la barre en direct ou on appelle la procédure de création "CreationMenu" présente dans le module standard

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
'Affiche la barre d'outils lorsque vous cliquez sur le label.
Private Sub Label1_Click()
  On Error GoTo suite
     CommandBars("MenuUSF").Delete
suite:
    'CreationMenu
    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

[patricktoulon]

re du coup donc mon idée de remplacer les combo par des popup ne match pas avec mes intentions de tout mettre dans l'USF

donc projet abandonné

[unparia]

Bonjour
Tant Ontime, que Onction, que Onkey ne peuvent déclencher (lire l'aide VBA) que des macros (au sens défini par Office pour "macros").
Et on comprend bien pourquoi.

[jurassic pork]

hello,
Patrick je n'ai peut-être pas trop compris ce que tu voulais faire mais si c'est un truc dans ce genre :




Ami calmant, J.P

[patricktoulon]

re
bonjour jurrassic pork oui des exemples t'en trouve a la pelle
j'en ai fait pas mal aussi

mais le soucis qui visiblement parait insoluble c'est que je veut les sub appelées dans les ".onction" soient dans le module userform