Re : Faire le tri d'une ListView suivant critères dans SubItems(x)
salut IFFIC,
un conseil : quand tu détruis des items, n'utilises jamais de boucle For/Next.
la boucle For / Next va par exemple de 0 à 9 (10 éléments). si tu effaces un item, la boucle va toujours se faire de 0 à 9, or il ne reste plus que 9 éléments, d'où l'erreur sur la dernière itération de la boucle.
utilise plutôt Do Loop avec un indice dans la proc CommandButton4_Click :
Code:
Private Sub CommandButton4_Click()
i = 1
Do
If Me.ListView1.ListItems(i).ListSubItems(3) = "BLEU" Then
Me.ListView1.ListItems.Remove i
Else
i = i + 1
End If
Loop Until i > Me.ListView1.ListItems.Count
End Sub
Re : Faire le tri d'une ListView suivant critères dans SubItems(x)
Kobaya à dit:
salut IFFIC,
un conseil : quand tu détruis des items, n'utilises jamais de boucle For/Next.
la boucle For / Next va par exemple de 0 à 9 (10 éléments). si tu effaces un item, la boucle va toujours se faire de 0 à 9, or il ne reste plus que 9 éléments, d'où l'erreur sur la dernière itération de la boucle.
utilise plutôt Do Loop avec un indice dans la proc CommandButton4_Click :
Code:
Private Sub CommandButton4_Click()
i = 1
Do
If Me.ListView1.ListItems(i).ListSubItems(3) = "BLEU" Then
Me.ListView1.ListItems.Remove i
Else
i = i + 1
End If
Loop Until i > Me.ListView1.ListItems.Count
End Sub
ça me fait plaisir de voir qu'il y a au moins une personne ici-bas qui prête encore attention à la langue française. Des fois, quand je lis certains posts, je désespère
P.S.
Ce qui ne m'empêche pas de faire, moi aussi, des fautes. Notamment, quand je veux répondre très vite parce que je suis "à la bourre", ou que je ne veux pas me faire doubler par les cracks de ce forum (que celui qui ne fait jamais ça me jette le premier bug !). Non, je ne citerai personne pour ne pas faire de jaloux