VBA : Liste déroulante avec une combobox à partir des colonnes de la ligne 1

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 :)

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

Code:

---

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:

---

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

---

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 :(

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

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

Je crois que j’ai fait une erreur dans mon code.
Essayes d’enlever les « = »

D'enlever tous les égales ? Et je ne les remplace par rien d'autres?

Code:

---

ComboBox2.AddItem Worksheets("TBR").Range("B1").Offset(0, i).Value

---

je l'ai fait et ça ne m'affiche rien...

Bon. Procède par étapes.
Tu connais la fonction debug.print ?

Code:

---

1 2 3 4

Dim i As Byte For i = 0 To 5 'a adapter selon ton nombre de ligne Debug.print Worksheets("TBR").Range("B1").Offset(0, i).Value Next i

---

N’oublie pas d’afficher la fenêtre d’Exécution.
Avec ça tu vas déjà pouvoir identifier si tu arrives a pointer sur les différents éléments que tu veux mettre dans ta liste.
Dans un deuxième temps, tu essayes :

Code:

---

1 2 3 4 5

ComboBox2.AddItem “valeur 1” ComboBox2.AddItem “valeur 2” ComboBox2.AddItem “valeur 3” ComboBox2.AddItem “valeur 4” ComboBox2.AddItem “valeur 5”

---

Cela te permet de savoir si tu arrives à mettre des valeurs dans ta combobox avec la fonction AddItem

J'ai commencé par ton second code pour vérifier si j'arrivais déjà à mettre des valeurs dedans mais rien n'y fait je n'ai rien d'afficher je ne comprend pas...

Tu mets bien l'ensemble de ces codes sous Private Sub ComboBox2_Change() ?? Pas Initialize?

A non !!!!
Tu dois le mettre dans UserForm_Initialize() (si il se trouve dans un formulaire)

Bon dans tous les cas cela ne fonctionne pas. C'est vraiment bizarre cette histoire je ne comprends pas

Essaye de recréer un combobox pour remplacer celui que tu utilises.

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() Dim i As Byte i = 0 While Worksheets("TBR").Range("B1").Offset(0, i).Value <> "" ' si tu veux remplir jusqu'à arriver dans une cellule vide ComboBox2.AddItem Worksheets("TBR").Range("B1").Offset(0, i).Value i = i + 1 Wend End Sub

---

Désolé mais ça ne fonctionne toujours pas, j'ai essayé de faire un code qui a presque marché :
En faite dès qu'une valeur de la ligne 1 s'incrémente elle s'incrémente également sur la combobox voila mon code

Code:

---

1 2	Sheets("TBR").Range("XFD1").End(xlToLeft).Offset(0, 1).Value = ActiveSheet.Name 'incrémentation des valeurs colonne par colonne Supprimer.ComboBox2.AddItem (ActiveSheet.Name)

---

Par le biais de ce code ma combobox se remplit bien par contre le problème c'est qu'il ne garde pas en mémoire les données rentrées quand je ferme et re-ouvre le fichier

Pièce jointe 212724

Voici un exemple qui fonctionne avec le code que je t'ai donné

Oui c'est exactement ce que je recherche mais je ne comprends pas où est mon erreur même en essayant de recopier bêtement ce que tu as fait je n'arrive pas à faire le faire fonctionner :roll:

Je peux pas t'aider plus que ça.
C'est à toi de comprendre tes erreurs!