Discussion :

[moi244]

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 :

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

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

[jfontaine]

Bonjour,

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

Code :

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

ComboBox1.RowSource = "Feuil3!BQ2:BQ15"

[keygen08]

Bonjour

Parfois je suis obliger de modifier comme suit.

Code :

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

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

[supierre]

Bonjour,

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

Code :

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

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

[keygen08]

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.

[moi244]

Merci à tous!