Discussion :

[bebel9313]

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

[mercatog]

à tout hasard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bebel9313]

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