Discussion :

[supertoms]

Salut à tous, je n'arrive pas à coder une fonction qui me permettrai d'enlever les doublons d'un tableau.
Par exemple j'ai un tableau de type string, qui a les valeurs :

(a;b;c;d;e;e;f;a;b;t;e)

et je veux qu'il se transforme en :

(a;b;c;d;e;f;t)

Merci d'avance !

[Jean-Philippe André]

Salut,
Tu utilises un tableau pour le moment ?
Si tu passes ce tableau dans une table, tu fais une requête

Code SQL :

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

SELECT DISTINCT

et le tour est joué

[supertoms]

Merci je ferais ça dans le pire des cas mais pour l'instant j'aimerai y arriver seulement avec un tableau car je n'ai pas envi de faire une table tampon.
Merci d'avance !

[ofinot]

Je pense qu'essayer de modifier le tableau n'est pas la meilleure solution.

Le plus simple est, à mon avis d'utiliser un second tableau résultat que tu rempliras au fur et à mesure. Je m'explique :

Tu as ton tableau T1, tu en créé un nouveau T2, vide.
Ensuite pour chaque élément de T1, tu regardes s'il est présent dans T2, et si cela n'est pas le cas, tu l'y ajoute.

A la fin T2 contiendra les valeurs que tu souhaites.

[marot_r]

Autre passe passe, tu peux utiliser une Collection, ça fera le même travail qu'une table :-).

sinon ce n'est pas très complex, si tu ne veux pas que tes éléments soient triés voici une solution 100% pure tableau. Pas la plus optimale mais elle marche :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Private Sub SupprimerDouble()
Dim tEntree As Variant: tEntree = Array("a", "b", "c", "d", "e", "e", "f", "a", "b", "t", "e")
Dim tSortie() As String: ReDim tSortie(0)
Dim trouve As Boolean
 
Dim i As Integer
Dim j As Integer
 
For i = LBound(tEntree) To UBound(tEntree)
 
 
    trouve = False
 
    If Not IsNull(tSortie) Then
 
        For j = LBound(tSortie()) To UBound(tSortie())
 
            If tEntree(i) = tSortie(j) Then
                trouve = True
                Exit For
            End If
 
        Next j
 
    End If
 
    If Not trouve Then
 
        If i <> LBound(tEntree) Then
            ReDim Preserve tSortie(UBound(tSortie) + 1)
        End If
 
        tSortie(UBound(tSortie)) = tEntree(i)
 
    End If
 
Next i
 
Debug.Print Join(tSortie, ",")
 
End Sub