Discussion :

[vally74]

Tout est dit.
Je cherche une fonction du type Inputbox(...)
mais qui proposerait à l'utilisateur une liste déroulante de choix dans une boite à message.

Du genre, on définit "Rouge","Bleu","Vert",... dans une boite "Quelle couleur?" au lieu d'avoir une zone à taper.

[ouskel'n'or]

Tu peux utiliser un userform avec une listbox ou une combobox
Insère un module standard à ton projet.
Colle ce code dans ce module

Code :

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

1
2
3
4
5
6
Public couleur As String
Sub ouvrir()
    Load UserForm1
    UserForm1.Show
    MsgBox couleur
End Sub

Insère un userform "Userform1" dans ton projet.
Dans l'userform, ajoute une listbox nommée Listbox1
Place ce code dans le code de l'userform

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
Private Sub Listbox1_Click()
couleur = Listbox1
Unload UserForm1
End Sub
 
Private Sub UserForm_Activate()
    Listbox1.Clear
    Listbox1.AddItem "Jaune"
    Listbox1.AddItem "Orange"
    Listbox1.AddItem "Rouge"
    Listbox1.AddItem "Violet"
    Listbox1.AddItem "Bleu"
    Listbox1.AddItem "Vert"
    Listbox1.AddItem "Jaune"
End Sub

Enfin, exécute la macro Ouvrir et sélectionne une couleur.
Tu récupéreras cette couleur dans le msgbox
Amuse-toi bien