Bonjour, J'ai un problème pour supprimer en même temps plusieurs éléments dans une listbox.
Dans le sens For i = 0 To compteur_liste:
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
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
Partager