Discussion :

[chikitin]

Bonjour à tous,
Débutant en VBA: Comment j'insère une liste dans ListBox ou ComboBox, sans lien avec un classeur ou une feuille:
J'ai fait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm1_Initialize()
    With Me.ListBox1
    .AddItem ("red")
    .AddItem ("red")
    .AddItem ("blue")
    .AddItem ("green")
    End With
 
End Sub

Rien ne s'affiche?
merci pour vos réponses

[laetitia]

bonjour, pour une combo..

Code :

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

1
2
3
Private Sub UserForm_initialize()
  combobox1.List = Array("red", "red", "blue", "green")
End Sub

[chikitin]

Merci Laetitia,
ça marche pour ComboBox, mais pour listBox je n'ai pas trouvé, à part créer un CommandButton pour l'enclencher.

[laetitia]

re, pour une listbox c'est pareil !!!!

Code :

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

1
2
3
Private Sub UserForm_initialize()
 ListBox1.List = Array("red", "red", "blue", "green")
End Sub

[chikitin]

Re-merci, Donc si simple, est-ce que tu peux me dire ce qui est faut dans mon premier message?

[mazuno]

j'avai fait la meme erreur que toi :
tu a écrit
Private Sub UserForm1_initialize()
où UserForm1 est le nom de ta form

alors qu'il faut écrire
Private Sub UserForm_initialize()

où UserForm sert juste à dire que c'est à l'initialisation d'une userform

[chikitin]

Yes!!!!! maintenant c'est clair. Merci mazuno.