Discussion :

[flobuzz]

bonjour,

J'ai un tableau interne dans lequel je cherche à éviter les doublons.
Je remplis ce tableau à partir de 5000 valeurs.
Au final, je veux un tableau avec des données classées par ordre croissant, et donc sans doublons...

Le souci, c'est le temps mis pour les vérif de doublons...

mon code est le suivant :

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
 
       If Cells(i, NCR - 3) = "V0002" Then
            If V2ncr(UBound(V2ncr)) = "" Then
                V2ncr(UBound(V2ncr)) = Cells(i, NCR - 2): GoTo suite
            Else:
                For j = 1 To UBound(V2ncr)
                    If V2ncr(j) = Cells(i, NCR - 2) Then GoTo suite
                Next j
                ReDim Preserve V2ncr(1 To UBound(V2ncr) + 1)
                V2ncr(UBound(V2ncr)) = Cells(i, NCR - 2)
            End If
            For j = UBound(V2ncr) - 1 To 1 Step -1
                If Val(V2ncr(j + 1)) < Val(V2ncr(j)) Then
                    ValA = V2ncr(j)
                    V2ncr(j) = V2ncr(j + 1)
                    V2ncr(j + 1) = ValA
                End If
            Next
        End If

z'auriez pas une pitite idée ?

je sèche...

[flobuzz]

bon bah merci, j'ai trouvé un truc presque instantané :

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
If Cells(i, NCR - 3) = "V0002" Then
            If V2ncr(UBound(V2ncr)) = "" Then
                V2ncr(UBound(V2ncr)) = Cells(i, NCR - 2): GoTo suite
            Else:
                If UBound(Filter(V2ncr, Cells(i, NCR - 2), True)) = 0 Then GoTo suite
'                For j = 1 To UBound(V2ncr)
'                    If V2ncr(j) = Cells(i, NCR - 2) Then GoTo suite
'                Next j
                ReDim Preserve V2ncr(1 To UBound(V2ncr) + 1)
                V2ncr(UBound(V2ncr)) = Cells(i, NCR - 2)
            End If
            For j = UBound(V2ncr) - 1 To 1 Step -1
                If Val(V2ncr(j + 1)) < Val(V2ncr(j)) Then
                    ValA = V2ncr(j)
                    V2ncr(j) = V2ncr(j + 1)
                    V2ncr(j + 1) = ValA
                End If
            Next
        End If

Merci moi !

Oh, de rien !!

Allez, bonne journée à tous !


Flobuzz