Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment faire une Liste déroulante en vba?

4 réponses
Avatar
fred
Je débute dans la création d'un formulaire.
En vba j'ai créé un userform avec un listbox.
J'aimerais dans ce listbox retrouver une liste prédéfinie comme (Infirmier,
Ergo, Ortho, Educateur, Médecin Diététicien)
Comment faire?
Merci pour votre aide

4 réponses

Avatar
Daniel
Bonjour.
Tu peux utiliser la propriété "rowsource" et la coder soit dans les
propriétés soit dans le code de l'userform :

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Feuil1!A1:A10"
End Sub

ou utiliser la métode "additem" :

Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "Médecin"
.AddItem "Infirmier"
.AddItem [A1]
End With
End Sub
La plage A1:A10 contenant ta liste.
Si la liste est longue, utilise une boucle.

Cordialement.
Daniel

"fred" a écrit dans le message de news:
45dee954$0$30375$
Je débute dans la création d'un formulaire.
En vba j'ai créé un userform avec un listbox.
J'aimerais dans ce listbox retrouver une liste prédéfinie comme
(Infirmier, Ergo, Ortho, Educateur, Médecin Diététicien)
Comment faire?
Merci pour votre aide



Avatar
JB
Bonjour,


Private Sub UserForm_Initialize()
Me.ListBox1.List = Array("Infirmier", "Ergo", "Ortho", "Educateur",
"Médecin", "Diététicien")
End Sub

JB





On 23 fév, 17:16, "fred" wrote:
Je débute dans la création d'un formulaire.
En vba j'ai créé un userform avec un listbox.
J'aimerais dans ce listbox retrouver une liste prédéfinie comme (Infi rmier,
Ergo, Ortho, Educateur, Médecin Diététicien)
Comment faire?
Merci pour votre aide


Avatar
fred
Je vais essayer la méthode addItem...mais existe t-il une limite du nombre
d'incrémentation dans la liste???
Merci Daniel d'avoir répondu rapidement!

"Daniel" a écrit dans le message de news:

Bonjour.
Tu peux utiliser la propriété "rowsource" et la coder soit dans les
propriétés soit dans le code de l'userform :

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Feuil1!A1:A10"
End Sub

ou utiliser la métode "additem" :

Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "Médecin"
.AddItem "Infirmier"
.AddItem [A1]
End With
End Sub
La plage A1:A10 contenant ta liste.
Si la liste est longue, utilise une boucle.

Cordialement.
Daniel

"fred" a écrit dans le message de news:
45dee954$0$30375$
Je débute dans la création d'un formulaire.
En vba j'ai créé un userform avec un listbox.
J'aimerais dans ce listbox retrouver une liste prédéfinie comme
(Infirmier, Ergo, Ortho, Educateur, Médecin Diététicien)
Comment faire?
Merci pour votre aide







Avatar
Daniel
J'ai fait un essai avec 100 000 items de 100 caractères sans problème.
Ca ne doit être limité que par la quantité de mémoire disponible.
Cordialement.
Daniel
"fred" a écrit dans le message de news:
45df1abd$0$11538$
Je vais essayer la méthode addItem...mais existe t-il une limite du
nombre d'incrémentation dans la liste???
Merci Daniel d'avoir répondu rapidement!

"Daniel" a écrit dans le message de news:

Bonjour.
Tu peux utiliser la propriété "rowsource" et la coder soit dans les
propriétés soit dans le code de l'userform :

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Feuil1!A1:A10"
End Sub

ou utiliser la métode "additem" :

Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "Médecin"
.AddItem "Infirmier"
.AddItem [A1]
End With
End Sub
La plage A1:A10 contenant ta liste.
Si la liste est longue, utilise une boucle.

Cordialement.
Daniel

"fred" a écrit dans le message de news:
45dee954$0$30375$
Je débute dans la création d'un formulaire.
En vba j'ai créé un userform avec un listbox.
J'aimerais dans ce listbox retrouver une liste prédéfinie comme
(Infirmier, Ergo, Ortho, Educateur, Médecin Diététicien)
Comment faire?
Merci pour votre aide