Discussion :

[julio44]

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! =)

[Theze]

Bonjour,

Je peux te proposer autre chose si ça t'intéresse ?

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
 
Sub entrainement()
 
    Dim Plage As Range
    Dim tabdates_compta_max(1 To 10) As Date
    Dim I As Integer
 
    'défini la plage de recherche en colonne A
    Set Plage = Range([A1], [A65536].End(xlUp))
 
    'boucle pour récupérer les 10 plus grandes dates
    '(en ordre croissant, de la plus récente à la plus ancienne)
    With Application.WorksheetFunction
 
        For I = 1 To UBound(tabdates_compta_max)
 
            tabdates_compta_max(I) = .Large(Plage, I)
 
        Next I
 
    End With
 
    'pour l'exemple, affiche le résultat dans la fenêtre de débogage
    'c'est ici que tu vas utiliser tes 10 dates...
    For I = 1 To UBound(tabdates_compta_max)
 
        Debug.Print tabdates_compta_max(I)
 
    Next I
 
End Sub

Hervé.

[Michel_M]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub les_10_recents()
Dim fin As Integer, cptr As Byte
Dim Tablo(1 To 10)
 
fin = Columns("A").Find("*", Range("A1"), , , , xlPrevious).Row
For cptr = 1 To 10
     Tablo(cptr) = Application.Large(Range("A1:A" & fin), cptr)
Next
'pour vérifier
     Range("C1:C10") = Application.Transpose(Tablo)
End Sub

[julio44]

Bonjour et merci pour vos réponses.

J'ai de mon côté réalisé ce code, mais je le trouve bien compliqué par rapport aux vôtres.

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
Sub entrainement()
 
Dim tabdates_compta_max(10) As Date
Dim cpt1 As Integer
Dim I As Integer
Dim j As Integer
Dim enfin As Boolean
 
enfin = True
tabdates_compta_max(0) = Range("A" & 2).Value
 
For cpt1 = 2 To Range("A:A").End(xlDown).Row Step 1
    For I = 0 To 9 Step 1
        If enfin = True Then
            If Range("A" & cpt1).Value > tabdates_compta_max(I) Then
 
                enfin = False
                For j = 9 To j = I + 1 Step -1
                tabdates_compta_max(j + 1) = tabdates_compta_max(j)
                Next j
                tabdates_compta_max(I) = Range("A" & cpt1).Value
                End If
            End If
        Next I
    enfin = True
Next cpt1
 
Msgbox "voici les 5 plus grosses dates " & tabdates_compta_max(0) & tabdates_compta_max(1) & tabdates_compta_max(2) & tabdates_compta_max(3) & tabdates_compta_max(4) & tabdates_compta_max(5), vbOKOnly, "Mdr"
 
End Sub

Puis-je continuer sur cette lancée ou vous me conseillez d’utiliser le votre?
Car maintenant, je vais pour chacune des 10 dates les plus élevées renvoyer la valeur en colonne C & i également par exemple.

(En effet vous utilisez des méthodes/fonctions que je ne connais absolument pas)

[Michel_M]

Bonjour,

J'ai de mon côté réalisé ce code, mais je le trouve bien compliqué par rapport aux vôtres.
....
Puis-je continuer sur cette lancée ou vous me conseillez d’utiliser le votre?

c'est ton projet, pas le notre !!!

En effet vous utilisez des méthodes/fonctions que je ne connais absolument pas

eh bien, c'est l'occasion d'en faire la connaissance pour progresser

http://excel.developpez.com/cours/

[julio44]

vous avez raison, je vais me perfectionner en suivant votre voie ! =)

Juste une petite précision svp.

J'ai créé un tableau de la meme facon que vous l'avez fait précedemment, qui contient des integer.

Je voudrais stocker dans ce tableau le numéro de la ligne correspondante à la valeur trouvée dans tab_dates_compta_max(I), le but étant de ressortir la ligne complète ultérieurement.

J'ai essayé d'utiliser la fonction .index, mais sans succès. Pourriez-vous m'éclairer ?


Merci