Remplir une ListBox avec des cellules fusionnées

[francois22]

Bonjour à vous !

Je souhaiterai remplir une ListBox avec des valeurs contenues dans une colonne.
Jusque là pas de problème..

Cependant ma base de données comprend plusieurs cellules fusionnées. De ce fait des "vides" apparaissent lorsque je déroule la ListBox.

Comment éviter ces "vides" engendrés par les lignes ou cellules fusionnées ?

Ci joint un fichier exemple.

Bien cordialement,
François

 

[Hulk]

Re : Remplir une ListBox avec des cellules fusionnées

Hello,

Comme ceci ça joue..

Private Sub UserForm_Initialize()

    Dim J&
    
    For J = 6 To Sheets("Feuil1").[A65000].End(xlUp).Row
        'Si cellule différente de vide
        If Sheets("Feuil1").Cells(J, "A").Value <> "" Then
            ComboBox1.AddItem Sheets("Feuil1").Cells(J, "A")
        End If
    Next J
    
End Sub

 

[francois22]

Re : Remplir une ListBox avec des cellules fusionnées

Merci bien Hulk !

Une dernière question :

Comment intégrer ce combobox, actuellement dans l'UserFom, dans la feuil Excel directement ?

Je pense que la réponse se trouve avec ThisWorkBook mais après plusieurs tentatives je n'y suis pas arrivé.