Bonjour, J'ai un problème pour supprimer en même temps plusieurs éléments dans une listbox.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub supprime_valeur_liste()
Dim i As Integer
Dim compteur_liste As Double
compteur_liste = listbox.ListCount - 1
For i = 0 To compteur_liste
OU
For i = compteur_liste To 0 Step -1
    If listbox.Selected(i) = True Then
    listbox.action_estim.RemoveItem (listbox.action_estim.ListIndex)
    Else
    End If
Next
End Sub
Dans le sens For i = 0 To compteur_liste:
Le pb c'est que du moment ou l'on supprime une ligne, la boucle ne peut plus aller jusqu'au bout.....
Dans le sens For i = compteur_liste To 0 Step -1
Le pb c'est qu'il me supprime tout ce qui est au dessus de ma sélection......
Comment faire pour ne supprimer que ces deux lignes?

Merci bien
fred