Discussion :

[bobo1425]

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 :

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

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!

[mercatog]

Code :

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

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é

[bobo1425]

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

[Invité]

Bonjour,

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

Code :

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

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

[bobo1425]

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

[Invité]

Qu'est-ce qui ne fonctionne pas ?

La mise à jour de listechoix ?

Si je remplace :

Code :

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

Private Sub Outilpalette1_Initialize()

par

Code :

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

Private Sub Userform_Initialize()

La liste "listechoix" est bien mise à jour.

ou est-ce la suite :

Code :

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

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