Discussion :

[aguerriera]

Coucou,

Je fais des recherches, pour voir si c'est possible d'avoir un menu déroulant via une fenêtre. Mais je ne trouve pas de solution.

Quand on clique sur mon bouton, il s'affiche qu'elle age as-tu, et j'aimerais qu'il s'affiche un menu déroulant. Qu'ils ne puissent seulement choisir 18 ans ou 20 ans.

Avez vous une solutions ?

Merci d'avance.

[Marc-L]

Bonjour,

utiliser un ComboBox ou un ListBox dans un UserForm … (cf tutoriels de ce forum dédiés à UserForm)

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

bonjour
ou un popup en 5 ou 6 ligne(commandbarpopup)plus besoins d'interface

exemple un bouton dans le sheet

Code :

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

1
2
3
Private Sub CommandButton1_Click()
barre
End Sub

dans un module standard

Code :

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

1
2
3
4
5
6
7
8
9
Sub barre()
    Dim mabarre As CommandBar
    Set mabarre = CommandBars.Add("Menuage", msoBarPopup, False, True)
     With mabarre.Controls.Add(msoControlButton, 1, , , True): .Caption = "quel age a tu?": .Enabled = False: End With
    For i = 15 To 30
        With mabarre.Controls.Add(msoControlButton, 1, , , True): .Caption = i: .Tag = i & " ans": .OnAction = "age": End With
    Next
    mabarre.ShowPopup
End Sub

et la macro qui est solicité

Code :

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

1
2
3
4
5
Sub age()
MsgBox CommandBars.ActionControl.Tag
On Error Resume Next
CommandBars("menuage").Delete
End Sub

[aguerriera]

A la ligne deux, j'ai un code d'erreur 5 Argument ou appel de procédure incorrect.
Je ne comprends pas, j'ai essayé dans un autre module. Mais j'ai exactement le même problème.

[patricktoulon]

c'est parce que tu n'a pas utiliser la sub age et comme c'est dedans que je detruit la popup la 2d fois que tu a lancer "barre" pop!!! erreur 5 parce que la barre existe
donc le delete on va le mettre dans barre et voila tout
remplace "age" dans le "onaction" par le nom de ta macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub barre()
    Dim mabarre As CommandBar
    On Error Resume Next
    CommandBars("menuage").Delete
    Set mabarre = CommandBars.Add("Menuage", msoBarPopup, False, True)
    With mabarre.Controls.Add(msoControlButton, 1, , , True): .Caption = "quel age a tu?": .Enabled = False: End With
    For i = 15 To 30
        With mabarre.Controls.Add(msoControlButton, 1, , , True): .Caption = i: .Tag = i & " ans": .OnAction = "age": End With
    Next
    mabarre.ShowPopup
End Sub

voila

[aguerriera]

Ca marche,

Mais j'aimerais enlever :

Code :

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

1
2
3
 For i = 15 To 30
        With mabarre.Controls.Add(msoControlButton, 1, , , True): .Caption = i: .Tag = i & " ans": .OnAction = "age": End With
    Next

Pour que à la place c'est moi qui choisis par exemple, "tomate", "salade".
Qu'ils ne peuvent seulement prendre que tomate ou salade.