Discussion :

[nicleco]

Bonjour,

Je remplis ma listbox et ensuite je souhaiterai supprimer les doublons :

J'utilise 2 boucles for imbriquées mais à un certains moment (j'imagine)mon pointeur J sort de mon tableau. Je n'arrive pas contourner ce problème.

Code :

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

1
2
3
4
5
6
7
8
9
        
For i = 0 To ListBox1.Items.Count()
            For j = 0 To listbox1.items.count
                If ListBox1.Items(i).Equals(ListBox1.Items(j)) Then   ->  Erreur à ce niveau :InvalidArgument=La valeur '330' n'est pas valide pour 'index'. Nom du paramètre : index
                    ListBox1.Items.Remove(ListBox1.Items(j))
                    
                End If
            Next
 Next

Merci

[Faladin]

http://www.developpez.net/forums/d59...t/#post3513952

[Faladin]

Pour ton code initial par contre, le problème vient du fais que lorsque tu as supprimé un doublon, tes valeurs de i et j reste avec la dimension initiale de ta listbox, donc s'ils étaient initialement 10, tu en supprimes 2, lorsque tu arrives à 8 avec ton i ou ton j, ça dépasse la grosseur de ta collection...


Exécuté en pas-à-pas, tu aurais pu trouver cette erreur...

[nicleco]

merci

parfait pourtant c'est pas faute d'avoir fait une recherche sur le forum ^^

[Faladin]

Ben pour ta défense c'était pas dans une discussion qui parlait directement de ça initialement!

T'es sauvé...

[Ericntoukam]

Ben pour ta défense c'était pas dans une discussion qui parlait directement de ça initialement!

T'es sauvé...

Bonjour à tous
Excusez moi de m'incruster dans la discussion non pour apporter une solution mais surtout parce ce que j'ai le même problème car j'ai alimenté mes listbox et il se trouve qu'elles ont des doublons , pour les supprimer j'ai pris le bout de code ci dessus et j'ai une erreur idem seulement je n'arrive pas à la corriger bienqu'ayant lu les propositions de correction pouvez vous m'aider s'il vous plait?
Merci d'avance car je suis un débutant en visual basic(visual studio 2008)

Code :

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

1
2
3
4
5
6
7
8
9
10
 voici le bout de code:
 
For i = 0 To ListBox1.Items.Count-1
            For j = 0 To listbox1.items.count-1
                If ListBox1.Items(i).Equals(ListBox1.Items(j)) Then   ->  Erreur à ce niveau :InvalidArgument=La valeur '664' n'est pas valide pour 'index'. Nom du paramètre : index                 
   ListBox1.Items.Remove(ListBox1.Items(j))
 
                End If
            Next
 Next