Populer un combobox variable

Bonjour à tous,
C'est très rare que j'utilise les combobx, je m'en sauve souvent, mais là je dois avouer que je dois affronter ce problème donc c’est le temps d'apprendre :)
il ya quelque chose que je ne fais pas bien!
Dans ma colonne BQ, les les cellules se remplissent par un autre macro, donc mes cellules non-vides peuvent varie de BQ2 à BQ15, j'aimerais que mon combobox se rempli avec ces données:

Dans mon ThisWorkbook:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize()     Dim i As Byte   For i = 1 To 5 ComboBox1.AddItem "Ligne" & i Next i End Sub

---

mais rien ne se passe dans le Combobox (il reste vide).

Bonjour,

Une méthode simple est de lier la combobox aux données de la feuille

Code:

---

ComboBox1.RowSource = "Feuil3!BQ2:BQ15"

---

Bonjour

Parfois je suis obliger de modifier comme suit.

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 5 nomduuserform.ComboBox1.AddItem "Ligne" & i Next i End Sub

---

Bonjour,

voici ce que j'emploie pour les combobox (modifié pour ton problème)

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() 'Parcours des cellules de la plage BQ2:BQ15 for each cel in Sheets("NomFeuilleAvecValeurs").Range("BQ2:BQ15") 'si la valeur de la cellule n'est pas nulle: on ajoute à la combobox if cel.value <> "" then nomduuserform.ComboBox1.AddItem(cel.value) next cel End Sub

---

Cordialement

J'emploi également les méthode de @supierre et @jfontaine mais le résultat n'est pas le meme entre ma fonction et les leurs.
Ma fonction te donne une combobox avec ligne 1
ligne 2
ligne 3....
Ce que tu as écris.

Merci à tous! :ccool::ccool::ccool: