Discussion :

[ghosty04]

Bonjour,

Peut qqun me dire comment ajouter des valeurs dans une "zone de liste modifiable" (ComboBox). Dans UserForm_Initialise() je mets le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 TestTruc.ComboBox1.AddItem "jan"
    TestTruc.ComboBox1.AddItem "feb"
    TestTruc.ComboBox1.AddItem "mar"
    TestTruc.ComboBox1.AddItem "apr"
    TestTruc.ComboBox1.AddItem "may"
    TestTruc.ComboBox1.AddItem "jun"
    TestTruc.ComboBox1.AddItem "jul"
    TestTruc.ComboBox1.AddItem "aug"
    TestTruc.ComboBox1.AddItem "sep"
    TestTruc.ComboBox1.AddItem "oct"
    TestTruc.ComboBox1.AddItem "nov"
    TestTruc.ComboBox1.AddItem "dec

"

mais en executant la userform j'ai toujours rien dans la liste... Help (:

merci d'avance

[JackOuYA]

le code à l'air bon , du moment que ton userform se nomme TestTruc .. (si tu met cela dans UserForm_Initialise tu n'as pas besoint de préciser TestTruc;..)

[ucfoutu]

Bonjour,

code bon sauf si .... la combobox est liée à une source de données...

EDIT :

et si elle n'est pas liée, que penserais-tu d'utiliser ceci :

Code :

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

1
2
3
For i = 1 To 12
   ComboBox1.AddItem Format("01/" & i & "/2000", "mmm") 'ou (à ton choix) : Combo1.AddItem Format(DateSerial(1, i, 1), "mmm")
 Next