Discussion :

[damsmut]

Bonjour,

J'ai une variable de type tableau (disons de dimension 10)

exemple :

Code :

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

MyTab1(10) as string

Celle ci contient des doublons... comment les supprimer et obtenir une nouvelle variable tableau MyTab2() sans doublons ?

merci

a+

Dams'

[damsmut]

je me réponds

http://silkyroad.developpez.com/vba/tableaux/#LXIV-B

[ecarbill]

Bonjour à tous
Je sais que ceci est une vieille discussion, mais je cherchais une fonction pareille et je suis arrivée ici.
Dans mes lectures, j'ai vu beaucoup de fonctions qui utilisaient des dictionnaires, ou des collections.
Après plusieurs réflexions, je me suis lancé moi même à écrire une fonction qui n'utilise rien de tout ça.

Je mets ma fonction pour éventuellement vos commentaires ou aider d'autres personnes.

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
43
44
45
46
47
 
'----------------------------------------------------------------------------
'-----------Fonction supprimant les doublons d'un Array ---------------------
'----------------------------------------------------------------------------
Function ArraySansDoublons(Montableau As Variant) As Variant
'----------------------------------------------------------------------------
 
Dim mTab() As Variant
Dim SansDoublon() As Variant
 
mSup = UBound(Montableau)
mInf = LBound(Montableau)
 
Nbelement = 1 + mSup - mInf
ReDim Preserve mTab(1, Nbelement)
 
'Je vais une copie du tableau avec une colonne supplémentaire qui
'contiendra 1 si l'element correspondant est un doublon
'et 0 dans le cas contraire
 
For i = 0 To Nbelement - 1
    mTab(0, i) = Montableau(mInf + i)
    mTab(1, i) = 0 '0 par defaut aucun element n'est doublon
Next i
 
nbUnique = 0
 
'-----je parcours le tableau, dès que je trouve un element unique, j'en fais une copie
'----- et je marque 1 devant tous les autres élements ayant la meme valeur
For i = 0 To Nbelement - 1
    elmt = mTab(0, i)
    estdbl = mTab(1, i)
    If estdbl = 0 Then
        nbUnique = nbUnique + 1
        ReDim Preserve SansDoublon(nbUnique - 1)
        SansDoublon(nbUnique - 1) = elmt
        For j = i + 1 To Nbelement - 1
            If elmt = mTab(0, j) Then
                mTab(1, j) = 1
            End If
        Next j
    End If
 
Next i
 
ArraySansDoublons = SansDoublon
End Function

Merci à tous