Bonjour,

Dans une feuille contenant 4000 lignes, je chercher à réaliser une macro, qui va sortir une arraylist contenant les 10 valeurs les plus élevées de la colonne A.

Le problème est que les champs de la colonne A sont des dates, j'ai donc une incompatibilité de type avec ce 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
Sub entrainement ()
Dim tabdates_compta_max(10) As Date
Dim cpt1 As Integer
Dim i As Integer
Dim j As Integer
 
tabdates_compta_max(0) = Range("A" & 1).Value
 
For cpt1 = 0 To Range("A:A").End(xlDown).Row Step 1
 
    For i = 9 To 0 Step -1
 
        If Range("A" & cpt1).Value > tabdates_compta_max(i) Then
 
            For j = i To 10 Step 1
            tabdates_compta_max(j + 1) = tabdates_compta_max(j)
            Next j
        End If
    Next i
Next cpt1
 
End Sub
Merci de m'éclairer SVP! =)