Discussion :

[aurelu]

Bonjour tout le monde,

J'essaye tant bien que mal de créer une liste déroulante dans un userform avec différents codes mais rien n'y fait...

Alors voilà comment j'ai procédé jusque maintenant:

1) Dans le userform j'ai utilisé une zone de liste modifiable (combobox2)
2) J'ai mis le code suivant dans la propriété RowSource de ma combobox2 : "TBR!B1:XFD1" résultat: je n'avais que la valeur de B1 de visible mais pas les autres
3) Du coup je me suis lancé sur un autre code: ComboBox2.List = worksheets("TBR").Range("B1:XFD1").Value résultat : rien d'affiché

J'ai tenté d'autres codes qui sont dans le même ordre mais ça n'a pas fonctionné, je suis un peu perdu.

Pouvez-vous m'aider svp?

Merci à ceux qui répondront

[Nodens_swiss]

Hello
http://silkyroad.developpez.com/VBA/...serForm/#LII-F

[Nodens_swiss]

Code :

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

1
2
3
4
Dim i As Byte
    For i = 0 To 1000 'a adapter selon ton nombre de ligne
        ComboBox2.AddItem = Worksheets("TBR").Range("B1").Offset(0, i).Value
    Next i

ou

Code :

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

1
2
3
4
5
Dim i As Byte
    While IsNull(Worksheets("TBR").Range("B1").Offset(0, i).Value) = False ' si tu veux remplir jusqu'à arriver dans une cellule vide
        ComboBox2.AddItem = Worksheets("TBR").Range("B1").Offset(0, i).Value
        i = i + 1
    Wend

[aurelu]

Merci d'avoir répondu alors j'ai essayé les deux codes mais j'ai toujours le même résultat je n'ai qu'une seule et même valeur qui s'affiche peu importe le code c''est la valeur de B1.

Je ne comprends pas du tout parce que les codes sont très logiques

[Nodens_swiss]

Tes valeurs sont bien dans la même ligne ?
B1, C1, D1….

[aurelu]

Oui oui ce sont des valeurs qui sont toutes sur la ligne 1 à partir de B1...