ComboBox + cellules fusionnées

Bonjour à tous,

Voilà, j'aimerai récupérer des valeurs dans une combobox. Ces valeurs se trouve sur une page Grille_Q et les données sont toutes dans la colonne A. J'arrive à récupérer les valeurs grâce à la propriété rowsource. Toutefois, pour des raisons de lisibilité dans la feuille Grille_Q, j'ai dû fusionner les cellules et du coup, ça fait comme des sections. Par exemple dans la ligne 8 qui est fusionnée jusqu'à la ligne 18 de la colonne A, j'ai une valeur "blabla". Du coup, dans ma combobox, j'ai la première ligne qui s'affiche bien, et puis en dessous les 17 lignes suivantes, ben c'est du blanc. Alors que j'aimerai que ça passe à la ligne 19 où il y a marqué "blabla2"

Je sais pas si je me fais bien comprendre, n'hésitez pas si vous n'avez strictement rien compris.

Merci

Flo

Bonjour
Normal avec le Rowsource qui prend en compte chaque cellule
Pour ton cas, tu peux passer par une boucle (propriété RowSource vide)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim i As Long   With Sheets("Grille_Q") For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row If .Range("A" & i).Value <> "" Then Me.ComboBox1.AddItem .Range("A" & i).Value Next i End With End Sub

---

Impec, ça marche du feu de dieu

Merci

Flo