Enlever les lignes vides dans une listbox

[Tryphon]

Bonjour,

Quelqu'un saurait-il comment enlever des lignes vides dans une listbox. J'ai défini un range pour qu'il m'affiche des valeurs mais certaines des cellules dans le range sont vides et cela crée des lignes inutile dans ma listbox.

Merci d'avance

 

[Pierrot93]

Re : Enlever les lignes vides dans une listbox

Bonjour Tryphon

essaye le code ci dessous :

Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.List(i) = "" Then ListBox1.RemoveItem (i)
Next i

bonne journée

 

[Tryphon]

Re : Enlever les lignes vides dans une listbox

Merci beaucoup Pierrot mais ça marche pas.

En effet, j'ai spécifié une source de données pour le contrôle listbox, ce qui fait que RemoveItem ne fonctionne pas. Y'aurait-il un autre moyen ou comment pourrais-je faire pour ne pas spécifier de source de données pour créer ma liste ?

Merci beaucoup pour l'aide.

Tryphon

 

[Tryphon]

Re : Enlever les lignes vides dans une listbox

Re salut Pierrot, ainsi que le forum,

A moins que l'on puisse effectuer cette boucle sur le Range, mais je ne vois pas comment faire ?

 

[Pierrot93]

Re : Enlever les lignes vides dans une listbox

Re Tryphon

pour alimenter ta listbox, autrement que par l'utilisation de la propriété "RowSource", essaye le code ci dessous :

Private Sub UserForm_Initialize()
ListBox1.List = Range("A1:A10").Value
End Sub

@+

 

[Tryphon]

Re : Enlever les lignes vides dans une listbox

C'est génial Pierrot!

Merci beaucoup

A+