Supprimer plusieurs lignes dans une listbox

Résolu
Signaler
Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
-
Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
-
Bonjour à tous
Je solicite votre pour resoudre un petit problème:


J'aimerais pouvoir supprimer plusieurs lignes d'un seul coup dans une listbox.
J'arrive à selectionner plusieurs lignes mais je ne peut les supprimer en même temps.


pour l'instant, j'ai taper çà:
Private Sub MenuRetrait_Click()
Dim i As Integer
For i = 0 To (List2.ListCount - 1)
    If List2.Selected(i) = True Then
       List2.RemoveItem (i)
       Exit For
    End If
Next
End Sub

çà supprime ce qui est sélectionner mais il faut que je reclique sur le bouton pour chaque lignes.

alors si quelqu'un a une idée pour que je n'ai pas à recliquer plusieurs fois sur le bouton, il est le bienvenu et je le (ou la) remerci(e) à l'avance

anto37_44

3 réponses

Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
1
j'aurais dût reflechir un peu plus avant de poser la question car je vient de trouver la reponse:
il faut taper:
Private Sub MenuRetrait_Click()
Dim i As Integer
For i = 0 To (List2.ListCount - 1)
    If List2.Selected(i) = True Then
       List2.RemoveItem (i)
       MenuRetrait.Value=True
       Exit For
    End If
Next
End Sub

attention, çà ne marche que pour les boutons Command

voilà.
anto37_44
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
pas top, ton truc, beaucoup de tours de boucle pour rien...

fais simplement la boucle en sens inverse:

Private Sub MenuRetrait_Click()
Dim i As Integer
For i = (List2.ListCount - 1) To 0 Step -1
If List2.Selected(i) Then
List2.RemoveItem (i)
End If
Next
End Sub


ainsi, pas de soucis
Messages postés
48
Date d'inscription
mardi 3 avril 2007
Statut
Membre
Dernière intervention
11 juin 2007
1
Ah ouais c'est pas mal


je ne savais pas qu'on pouvais faire çà.


MERCI


anto37_44