Enlever les lignes vides dans une listbox

Pierrot93

XLDnaute Barbatruc

• 20 Juin 2007

• #2

Re : Enlever les lignes vides dans une listbox

Bonjour Tryphon

essaye le code ci dessous :

Code:

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

 

Vote positif 0 Vote négatif

T

Tryphon

Guest

• 20 Juin 2007

• #3

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

 

Vote positif 0 Vote négatif

T

Tryphon

Guest

• 20 Juin 2007

• #4

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juin 2007

• #5

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

T

Tryphon

Guest

• 20 Juin 2007

• #6

Re : Enlever les lignes vides dans une listbox

C'est génial Pierrot!

Merci beaucoup

A+

 

Vote positif 0 Vote négatif