Remplir Listbox au démarrage

Bonjour,
Je suis débutant en VBA.
J'aimerais remplir ma Listbox au démarrage de mon document. J'ai essayé de mettre UserForm_Initialize dans This Workbook mais il me dit que la Sub en question n'est pas déclarée.

Code:

---

1 2 3

Sub Workbook_open() UserForm_Initialize End Sub

---

Voici ce qu'il y a dans Feuil1 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub UserForm_Initialize() ListBox1.Clear ListBox1.AddItem "A" ListBox1.AddItem "B" End Sub   Private Sub CommandButton1_Click() UserForm_Initialize End Sub   Private Sub UserForm_suite() If ListBox1.List(ListBox1.ListIndex) = "A" Then ListBox2.AddItem "1" ListBox2.AddItem "2" ListBox2.AddItem "3" End If If ListBox1.List(ListBox1.ListIndex) = "B" Then ListBox2.AddItem "4" ListBox2.AddItem "5" End If End Sub   Private Sub ListBox1_Click() ListBox2.Clear UserForm_suite End Sub

---

Je ne peux pas créer de module avec les listbox sans que j'ai une erreur sur un objet manquant (listbox1 par exemple, même si je la déclare As Listbox). Je pense avoir compris que pour lancer une macro au démarrage il faut que ce soit dans un module (c'est la conclusion que j'en tire).
Avez vous une idée de comment remplir ma listbox à l'ouverture du document ?
Merci d'avance ;)

Ta listeBox sera rempli lorsque la userform sera chargée

Code:

---

1 2 3 4

Sub Workbook_open() UserForm.Show End Sub

---

Place ton code dans Userform_activate()
J'ai remarqué que, sur Excel 2003, les listes n'étaient pas initialisées si on les remplissais depuis Userform_Initialize. Un hasard ? Je n'en sais rien mais dans Activate, c'est ok.
Tu nous dis si ça règle ton pb.
A+

Edit
Et suis le conseil de JFontaine ;) sinon, ça marche pas. Ton userform doit être activé pour remplir ta liste
Par précaution, je le ferais même en deux temps pour laisser à ta liste le temps de se remplir (?!?...)

Code:

---

1 2	Load Userform1 Userform1.show

---

J'ai Excel 2003, et la liste se charge bien dans le UserForm_Initialize
Peut être que le problème a été corrigé dans un correctif.

ca ne marche pas... mais je crois savoir pourquoi. J'ai oublié de vous mentionner qqch :?
J'ai pas créé de userform. Je suis passé par la barre d'outils de visual basic>boîte à outils Contrôles>zone de liste
est-ce que ca change qqch ???
J'ai essayé toutes vos solutions mais aucune ne fonctionne, erreur 424, objet requis...
Il ne faut peut-être pas que je mette sans dans userform_activate du coup (ou Initialize)... c'est un nom reservé ?

Dans ce cas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_Open()   With Sheets("feuil1")   .ListBox1.AddItem "A" .ListBox1.AddItem "B"   End With     End Sub

---

Citation:

---

:mouarf3::mouarf3::mouarf3:

---

Mais heuuuu... :bug::bug: et oui, in débutant we trust :lol::lol:


Jfontaine, je crois que c'est le moment où je suis censé te dire

MERCI !!! CA MARCHE !!!!