supprimer plusieurs lignes dans une listboxRésolu

Question

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

anto37_44 · Accepted Answer

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

Renfield · Answer

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

anto37_44 · Answer

Ah ouais c'est pas mal


je ne savais pas qu'on pouvais faire çà.


MERCI


anto37_44

Supprimer plusieurs lignes dans une listbox

3 réponses

Votre réponse

Discussions similaires