Remplir une ListBox

**Edge38** · 05/03/2021, 11h33

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,

**Edge38** · 08/03/2021, 16h42

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 ?

**Thumb down** · 08/03/2021, 17h05

Bonsoir,

Code :

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

**Edge38** · 08/03/2021, 17h12

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...

**Thumb down** · 08/03/2021, 17h47

désolé!

Code :

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

**Edge38** · 08/03/2021, 21h20

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....

Macros et VBA Excel