Combobox liste variable (encore :S)!

Bonjour à tous.

Je sais que le sujet à déjà été beaucoup traité sur le forum et sur internet en général, mais je ne trouve quand même pas la solution à mon soucis...

J'ai un fichier excel ou une userform qui ici s'appelle outilpalette1 se lance à l'ouverture.
Je souhaite que la combobox "listechoix" aille chercher la liste de produit qui est dans une autre feuille et qui change régulièrement.
Je n'y arrive pas, pourtant je ne vois pas trio ce qui cloche...

Code:

---

1 2 3 4

Private Sub Outilpalette1_Initialize() Outilpalette1.listechoix.RowSource = ("Marque1!B4:Cells(Rows.Count, 2).End(xlUp).Row)") End Sub

---

Merci d'avance à toutes et à tous.
Bon WE!

Code:

---

1 2 3

Private Sub UserForm1_Initialize() Outilpalette1.RowSource = "Marque1!B4:B" & sheets("Marque1").Cells(sheets("Marque1").Rows.Count, 2).End(xlUp).Row End Sub

---

Edit: Oups, pas remarqué

Merci de votre réponse très rapide.

Hélas, ça na pas l'air de fonctionner, la liste est toujours vide, pourtant, aucune erreur est reporté par Excel...

Bonjour,

Votre procédure se trouve dans le Userform ? Ne serait-ce pas :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() Listechoix.RowSource = "Marque1!B4:B" & Sheets("Marque1").Cells(Sheets("Marque1").Rows.Count, 2).End(xlUp).Row   End Sub

---

Ça ne fonctionne toujours pas...
Je vous met le fichier en question en PJ, c'est l'userform outilpalette1 qui ne fonctionne pas (même problème pour outilpalette2 et 3 mais c'est les mêmes).

Qu'est-ce qui ne fonctionne pas ?

La mise à jour de listechoix ?

Si je remplace :

Code:

---

Private Sub Outilpalette1_Initialize()

---

par

Code:

---

Private Sub Userform_Initialize()

---

La liste "listechoix" est bien mise à jour.

ou est-ce la suite :

Code:

---

1 2 3 4 5 6

Private Sub listechoix_Change() Cells(8, 3) = listechoix.Value TextBox2.Value = Cells(18, 3) TextBox1.Value = Cells(19, 3) TextBox3.Value = Cells(20, 3) End Sub

---

Au tant pour moi (au temps??) effectivement en mettant

Code:

---

Private Sub Userform_Initialize()

---

Ça fonctionne, je croyais qu'il fallait remplacer userform par le nom de l'userform en question...

Tout fonctionne.

Merci beaucoup! :ccool: