Discussion :

[Camcam333]

Bonjour à tous,
J'essaye de créer un document mais un problème persiste: j'ai un Usf qui s'affiche avec deux listes déroulantes que j'aimerai remplir avec des données se trouvant sur une autre page. Impossible... Je vous sollicite car j'ai du essayer plus d'une dizaine de codes qui ne fonctionnent pas du tout dans mon document...
Auriez-vous une idée?? Le remplissage par la propriété Rowsource ne fonctionne pas du tout non-plus...

Exemple de mon dernier code essayé:

Code :

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

1
2
3
Private Sub UserForm3_Initialize()
ComboBox2.List = Worksheets("Données").Range("L4:L203").Value
End Sub

Merci d'avance pour votre aide

[boisgontierjacques]

Bonjour,

Code :

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

ComboBox2.List = Sheets("Données").Range("L4:L203").Value

Il serait + pratique de transformer le champ L4:L203 en tableau.

L'instruction deviendait:

Code :

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

ComboBox2.List =[Tableaux].value

Boisgontier

[pijaku]

Bonjour,

Si, en mode création, tu as donné (dans la fenêtre propriété, en "dur") une valeur à la propriété RowSource, tu ne peux pas utiliser la propriété List pour le remplissage de ta ComboBox.

Au passage, donne nous les codes testés, notamment pour le remplissage via RowSource et les éventuels messages d'erreur...

[Camcam333]

Bonjour,

Code :

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

ComboBox2.List = Sheets("Données").Range("L4:L203").Value

Il serait + pratique de transformer le champ L4:L203 en tableau.

L'instruction deviendait:

Code :

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

ComboBox2.List =[Tableaux].value

Boisgontier

Bonjour,
Merci de votre réponse seulement ce champ est une colonne d'un tableau, je ne peux donc pas faire mieux il me semble!
J'ai essayé votre code mais rien à faire, la liste reste désespérément vide...

[Camcam333]

Bonjour,

Si, en mode création, tu as donné (dans la fenêtre propriété, en "dur") une valeur à la propriété RowSource, tu ne peux pas utiliser la propriété List pour le remplissage de ta ComboBox.

Au passage, donne nous les codes testés, notamment pour le remplissage via RowSource et les éventuels messages d'erreur...

Bonjour,
effectivement je ne peux pas utiliser les deux seulement même un à la fois ne fonctionne pas.
J'arrive a remplir la liste via Rowsource lorsque les données se trouvent sur la même feuille mais si j'utilise une autre feuille cela ne fonctionne pas et le message d'erreur apparaît (cf photo ci-jointe)...
Je pense que ça doit être une erreur de syntaxe mais pourtant j'ai essayé avec : "Données"L3:L230 ou Données!L3:L230 ou "Données"!L3:L230, je ne sais pas quoi essayer d'autre!
Pour les autres codes testés je ne les ai pas sauvegardés mais ils ressemblaient globalement à celui que j'ai publié dans le premier message!
Merci beaucoup pour votre aide!!

[pijaku]

Essaye :

Code :

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

ComboBox1.RowSource = "Données!L3:L230"

A tout hasard, ta colonne L n'aurait-elle pas quelque chose de particulier?

[Camcam333]

Bonjour,
cela ne fonctionne toujours pas... Je ne crois pas non, c'est juste une colonne appartenant à un tableau qui se remplie manuellement mais rien de plus...
Je ne comprend pas pourquoi cela ne fonctionne pas..
Encore merci pour votre aide!

[pijaku]

Comme je ne suis pas devin, peux-tu me passer une copie de ton fichier en ayant, au préalable, viré les infos confidentielles (pour la colonne L, j'ai besoin du vrai type de données).

[BENNASR]

bonjour
joindre un fichier avec données fictives si tu veux

[Camcam333]

Bonjour, voici en pièce jointe le fichier,
le bouton pour le userform se trouve sur la feuille "intrants" : les données entrés dans ce usf sont envoyées dans le tableau9
La colonne avec les valeurs que je souhaite mettre dans ma liste 'combobox 2' se trouve dans la feuille "Données" tableau: "fongicides".
Merci de votre aide

[pijaku]

Ta feuille ne s'appelle pas "Données", mais "Données ".
Tu as un espace au bout dans le nom.
Clic droit sur l'onglet / renommer > supprime cet espace...

[Camcam333]

Oups! Merci beaucoup et désolée pour cette erreur idiote...
Bonne journée!