Remplir une ListBox

Bonjour à tous,

Je n'arrive pas à remplir une ListBox via le code, cela parait pourtant simple mais je sèche complétement :

Code:

---

1 2 3 4

Private Sub MonthBox_Click() MonthBox.AddItem "Janvier" End Sub

---

Et je ne trouve rien dans le menu déroulant...

Quelqu'un a-t-il une idée de mon erreur ?

En vous remerciant,

Bonjour à tous,

La méthode avec array ne fonctionne pas non plus

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.List() = Array("Janvier", "Février") End Sub

---

Vous avez une idée de ce que j'oublie de faire ?

Bonsoir,

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.List= Array("Janvier", "Février") End Sub

---

Citation:

---

Envoyé par Thumb down

Bonsoir,

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.List= Array("Janvier", "Février") End Sub

---

---

@Thumbdown Merci ...

J'ai copié collé le code et cela ne fonctionne pas...

désolé!

Code:

---

1 2 3

Private Sub UserForm_Activate() ComboBox1.List = Array("Janvier", "Février") End Sub

---

En l'adaptant à mon code cela donne :

Code:

---

1 2 3 4 5 6

Private Sub ChantierFinDeMois_Activate()   MonthBox.List = Array("Janvier", "Février", "Mars", "Avril")   End Sub

---

Le UserForm s'appelle ChantierFinDeMois
La combobox s'appelle MonthBox

Elle est toujours vide....