Supprimer plusieurs lignes dans une listbox [Résolu]

anto37_44 48 Messages postés mardi 3 avril 2007Date d'inscription 11 juin 2007 Dernière intervention - 24 mai 2007 à 10:19 - Dernière réponse : anto37_44 48 Messages postés mardi 3 avril 2007Date d'inscription 11 juin 2007 Dernière intervention
- 24 mai 2007 à 10:55
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
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
anto37_44 48 Messages postés mardi 3 avril 2007Date d'inscription 11 juin 2007 Dernière intervention - 24 mai 2007 à 10:29
3
Merci
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

Merci anto37_44 3

codes-sources a aidé 81 internautes ce mois-ci

Commenter la réponse de anto37_44
Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 24 mai 2007 à 10:40
3
Merci
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

Merci Renfield 3

codes-sources a aidé 81 internautes ce mois-ci

Commenter la réponse de Renfield
anto37_44 48 Messages postés mardi 3 avril 2007Date d'inscription 11 juin 2007 Dernière intervention - 24 mai 2007 à 10:55
0
Merci
Ah ouais c'est pas mal


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


MERCI


anto37_44
Commenter la réponse de anto37_44

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.