Combobox

Bonjour Sébastien,

Une des méthodes possibles ...

'-------------------
Private Sub UserForm_Initialize()

Dim arr()
arr = Array("Monsieur", "Madame")

Me.Combobox1.List = Application.WorksheetFunction.Transpose(arr)

End Sub
'-------------------

Tu peux regarder la méthode AddItem d'un combobox si tu le désires.

Salutations!



"Sébastien WICKER" <sebwicker@yahoo.fr> a écrit dans le message de news: 421254f0$0$19407$8fcfb975@news.wanadoo.fr...
Bonjour

J'aimerais bien savoir comment faut-il faire pour alimenter une ListBox
ou une Combobox directement en VBA

ex :
J'ai 2 Combobox et 1 Listbox ds un formulaire :
- CB1 : Je souhaite qu'elle affiche => Monsieur, Madame, Mademoiselle
- CB2 : Je souhaite qu'elle affiche => Marié, Divorcé, Veuf
- LB1 : Je souhaite qu'elle affiche => Sans enfant, 1 enfant, 2
enfants,......

Merci pr l'aide que l'on pourra m'apporter

bonjour Sébastien,

Private Sub UserForm_Initialize()
Dim titre, état, enfant
titre = Array("Monsieur", "Madame", "Mademoiselle")
état = Array("Marié", "Divorcé", "Veuf")
enfant = Array("Sans enfant", "1 enfant", "2 enfants")
For i = 0 To 2
Me.ComboBox1.AddItem titre(i)
Me.ComboBox2.AddItem état(i)
Me.ComboBox3.AddItem enfant(i)
Next
End Sub

isabelle

Bonjour

J'aimerais bien savoir comment faut-il faire pour alimenter une ListBox
ou une Combobox directement en VBA

ex :
J'ai 2 Combobox et 1 Listbox ds un formulaire :
- CB1 : Je souhaite qu'elle affiche => Monsieur, Madame, Mademoiselle
- CB2 : Je souhaite qu'elle affiche => Marié, Divorcé, Veuf
- LB1 : Je souhaite qu'elle affiche => Sans enfant, 1 enfant, 2
enfants,......

Merci pr l'aide que l'on pourra m'apporter