supprimer selection multiple listview

Bonjour,
Voici mon problème. J'ai une listview. Je sélectionne plusieurs lignes (la propriété Multiselect est à True). Je veux supprimer ces lignes lorsque j'appuie sur la touche supprimer. J'ai trouvé l'évènement à utiliser (KeyDown du listview). pas de problème la dessus. Mon problème est pour supprimer toutes ces lignes.
J'avais fait cela, mais les index deviennent faux dès qu'une ligne est supprimé.

Code:

---

1 2 3

For i = 1 To ListView_Capture.ListItems.Count If ListView_Capture.ListItems(i).Selected = True Then ListView_Capture.ListItems.Remove i Next i

---

Comment faut il faire?

Bonjour,

Citation:

---

Comment faut il faire?

---

Le problème en supprimant une entrée est que tu change le nombre d' entrée et donc la valeur qui est utilisée comme limite de bouclage. Donc :aie:

La solution est simple : la boucle à l'envers. Dans ce cas, pas de problème.

Code:

---

1 2 3 4

For i ListView_Capture.ListItems.Count to 1 step - 1 If ListView_Capture.ListItems(i).Selected = True Then ListView_Capture.ListItems.Remove i Next i

---

Merci beaucoup,
La solution est parfois si simple qu'on n'y pense pas du tout (décrémenté au lieu d'incrémenté).

Merci encore