ListBox

Messages postés
110
Date d'inscription
dimanche 11 août 2002
Statut
Membre
Dernière intervention
21 juillet 2006
-
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
-
Comment je peux enlever les espaces blanc dans les listbox (blank)?

Merci

4 réponses

Messages postés
162
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
22 mars 2004

Tu a une ligne vide ou c'est un espace dans une ligne?
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
'lut

For I = 0 To List1.ListCount - 1
If Len(Trim(List1.List(I))) <= 0 Then
List1.RemoveItem I
End If

:clown) BasicInstinct :clown)
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
oups, désolé ca marche pas :sad)

If Len(Trim(List1.List(I))) <= 0 Then
List1.RemoveItem I
End If

mais faut passer par 1 while pour boucler.
incrementation du I ou suppression de la ligne a chaque passage de boucle

:clown) BasicInstinct :clown)
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
Bonjour-:)
Vu que quand un item est enlevé de la liste
la propriété listCount ne contient plus la même valeur, il
faut décrémenter i et tester en début de boucle i afin de
savoir s'il est supérieur à la propriété .ListCount.

Exemple :

For i = 0 To List1.ListCount - 1
If Len(List1.List(i)) = 0 Then
If i > List1.ListCount - 1 Then Exit For
List1.RemoveItem i
i = i - 1
End If
Next
@+, VIC