pb suppression lignes listbox

Version imprimable

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

http://bebel9313.free.fr/vb/listbox.bmp
Code:

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

à tout hasard

Code:

1
2
3
4
5
6
For i = compteur_liste To 0 Step -1
    If listbox.Selected(i) = True Then
    listbox.RemoveItem (listbox.ListIndex)
    listbox.Selected(i) =false
    End If
Next

05/07/2010, 17h17
fring
Bonjour,

Normal que For x = 0 to 5 ne fonctionne pas lorsqu'on veut supprimer des lignes entières. Supposons x = 3, on supprime la ligne 3 et ensuite x s'incrémente et passe à 4 mais...la ligne 4 est devenue la ligne 3, la ligne 5 est devenue la ligne 4. Il faut donc toujours faire la boucle de bas en haut pour supprimer les lignes et de droite à gauche pour supprimer les colonnes.

Concernant la Listbox
Code:

1 2 3 4 For i = listbox.ListCount - 1 To 0 Step -1 If listbox.Selected(i) = True Then listbox.RemoveItem i Next
Attention : RemoveItem ne fonctionne pas si on utilise la propriété Rowsource pour remplire la Listbox
05/07/2010, 17h49
bebel9313

C'est exactement ça......
merci bien