Remplissage et affichage d'une liste box

[Saranass]

Bonjour,
je m'excuse par avance (car je débute), je voudrais créer une liste dans une boite de dialogue.

J'ai réussi a faire quelque chose (avec optionbutton) mais je voudrais au lieu de cocher la case faire une liste de choix.

Voici mon code actuel :

ArrChoix = Array("init", "SUIV", "STE", "PRO", "SPE", "REA", "CON", "MOD", "INT", "SUP", "NQI", "NQE", "INTEG")
TopPos = 40
For i = 1 To 13
PrintDlg.OptionButtons.Add 78, TopPos, 150, 16.5
PrintDlg.OptionButtons(i).Text = ArrChoix(i)
TopPos = TopPos + 13
Next i

Mon probeme et donc de le modifier pour remplir une liste


Merci par avance

 

[Hervé]

bonjour

Un truc dans ce style :

arrchoix = Array("init", "SUIV", "STE", "PRO", "SPE", "REA", "CON", "MOD", "INT", "SUP", "NQI", "NQE", "INTEG")
For Each Item In arrchoix
Me.ListBox1.AddItem Item
Next Item

salut
Hervé