Discussion :

[Camcam333]

Bonjour, après avoir cherché sur plusieurs forums je ne parviens pas à résoudre mon problème:
J'ai créé une liste déroulante dans un Userform sur une page nommée 'Actions'. Lorsque je fais apparaître le USF, la personne peut sélectionner dans une liste déroulant le nom du produit qu'elle a utilisé. Ces produits sont répertoriés dans un tableau d'une autre feuille appelée 'Données'. Je souhaiterai que lorsqu'on ajoute un produit dans la feuille 'Données', la liste déroulante de mon USF se modifie automatiquement.
J'ai vu qu'on pouvait le faire via la propriété 'Rowsource' mais bien évidemment cela ne fonctionne pas.
Si quelqu'un a une idée vous me sauverez ma journée!

Merci d'avance!

PS: Je ne peut pas joindre mon fichier:confidentialité etc...

[BENNASR]

bonjour
lors de l'initialisation de ton usf : adapter et essayer avec :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("feuil1").Range("A" & i)
Next i
End Sub

[Camcam333]

Bonjour, merci beaucoup pour votre réponse!
Cependant, cela ne fonctionne pas... Voici le message d'erreur et le code en photo!

[BENNASR]

modifer ce p655 par For i = 2 To Sheets("données").Range("P65536").End(xlUp).Row
supprimer les deux dernières lignes et voir le résultat à savoir l'initialisation de combobox1

[Camcam333]

J'ai essayé mais ça me met toujours le même message d'erreur...

[BENNASR]

voir fichier exemple jointe si non merci d'envoyer un fichier avec données fictives svp