Discussion :

[Kutoh]

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

[casefayere]

Bonjour,
essayes de commencer par la fin

Code :

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

For i = ListBox1.ListCount To 1 step - 1

[Kutoh]

Juste avec i? ou bien avec i et j?

[casefayere]

Excuses-moi, avec j mais j'ai des doutes par rapport au résultat, essayes quand même et reviens dire

[Kutoh]

Ouais ca me met le même message d'erreur.

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

[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.

[casefayere]

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

Un exemple parmi tant d'autres

[Kutoh]

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

Voici le Code

Code :

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

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