Suppression d'élément dans une ListBox/Tableau

Version imprimable

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

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:

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?!

30/07/2013, 15h12
casefayere

Bonjour,
essayes de commencer par la fin

Code:

For i = ListBox1.ListCount To 1 step - 1
30/07/2013, 15h15
Kutoh

Juste avec i? ou bien avec i et j?
30/07/2013, 15h17
casefayere

Excuses-moi, avec j mais j'ai des doutes par rapport au résultat, essayes quand même et reviens dire
30/07/2013, 15h22
Kutoh

Ouais ca me met le même message d'erreur.
30/07/2013, 15h25
casefayere

Je n'ai pas trop le temps mais je vais analyser pour que tu remplisses ta listbox sans doublons, quelle sont les données source de ta listbox ?
30/07/2013, 15h30
Kutoh

Effectivement j'étais entrain de voir comment enlever ces doublons à partir du tableau. Mais je ne sais pas aussi comment supprimer des doublons d'un tableau.
Mon tableau contient une liste de noms. Or f=dans cette liste y'a des noms qui apparaissent plusieurs fois. Je voudrais donc les supprimer, soit à partir du tableau, soit à partir de la ListBox.
30/07/2013, 15h39
casefayere

Sans plus de renseignement, essayes ce fichier et adaptes-le

Un exemple parmi tant d'autres

En fait j'ai choisi la suppression des doublons dans mon tableau avant de l'attribuer à la ListBox

Voici le Code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim i As Long, j As Long, , nbre As Long
Dim Tableau() As String, TableauFin() As String
 
  For i = 1 To UBound(Tableau)
    For j = i + 1 To UBound(Tableau)
        If Tableau(i) = Tableau(j) Then
            Tableau(j) = Empty
        End If
    Next j
  Next i
  nbre = 0
  For i = 1 To UBound(Tableau)
    If Tableau(i) <> "" Then
        nbre = nbre + 1
        ReDim Preserve TableauFin(1 To nbre)
        TableauFin(nbre) = Tableau(i)
    Else
        nbre = nbre
    End If
  Next i
 
ListBox1.List = TableauFin