Bonjour,
J'ai écrit un bout de code me permettant de supprimer des doublons dans ma ListBox. Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
ListBox1.List = Tableau
 
For i = 0 To ListBox1.ListCount - 1
    For j = i + 1 To ListBox1.ListCount - 1
        If ListBox1.List(i) = ListBox1.List(j) Then
            ListBox1.RemoveItem (j)
        End If
    Next j
Next i
Mais j'ai un message d'erreur à ce niveau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 If ListBox1.List(i) = ListBox1.List(j) Then
lorsque j passe à la dernière valeur soit 158 puisque ListBox1.ListCount=158.
Le message d'erreur dit :

Impossible de lire la propriété List.Index de table de propriétés non valide.

Une idée SVP?!