Control list

Résolu
Signaler
Messages postés
148
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
-
Messages postés
148
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
-
comment est ce que je peux suprimer les line vide dans un control listbox est ne laiser que les line ou il ya du text
merci d'avence

3 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Private Sub effaceLignesVides(l As ListBox)

Dim maximum as Long

Dim i As Long

maximum = l.ListCount-1

For i=maximum to 0 Step -1

If Trim$(l.list(i))="" Then

l.RemoveItem i

End if

Next i

End Sub



Et tu l'appelles comme çà si ta liste s'appelle List1:



effaceLignesVides List1

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
148
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
1
merci boucoup
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Bonjour,
Tu sélectionnes l'élément vide et tu le supprime avec ce code.

Private Sub Command1_Click()
Dim Ind As Integer
Ind = List1.ListIndex ' Affiche l'index.
' Vérifie qu'un élément de la liste est sélectionné.
If Ind >= 0 Then
' Supprime l'élément de la zone de liste.
List1.RemoveItem Ind
Else
Beep
End If
End Sub

jpleroisse