Remplir une ListBox avec des cellules fusionnées

francois22 · 24 Novembre 2011

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 · 24 Novembre 2011

Re : Remplir une ListBox avec des cellules fusionnées

Hello,

Comme ceci ça joue..

Code:

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 · 24 Novembre 2011

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

Remplir une ListBox avec des cellules fusionnées

francois22

Guest

Pièces jointes

Hulk

XLDnaute Barbatruc

francois22

Guest

Pièces jointes

Discussions similaires

Remplir une ListBox avec des cellules fusionnées

francois22

Guest

Pièces jointes

Hulk

XLDnaute Barbatruc

francois22

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency