Maximums d'une colonne

Bonjour, je rencontre un problème dans l'élaboration d'une macro qui fait :

Récupérer les 5 plus grandes valeurs d'une colonne

Merci beaucoup par avance à vous tous.

bonjour,

une solution via une fonction personnalisée

Function maxs(r, n)
    If r.Rows.Count > 1 Then
        t = Application.Transpose(r)
    Else
        t = Application.Transpose(Application.Transpose(r))
    End If
    For i = LBound(t) To n - IIf(LBound(t) = 0, 1, 0)
        For j = i + 1 To UBound(t)
            If t(i) < t(j) Then a = t(i): t(i) = t(j): t(j) = a
        Next j
    Next i
    a = ""
    For i = LBound(t) To n - IIf(LBound(t) = 0, 1, 0)
        a = a & t(i) & "|"
    Next i
    maxs = Left(a, Len(a) - 1)
End Function

appel de la fonction dans excel

=maxs(plage,nombre de valeurs à retourner)

exemple pour obtenir les 5 valeurs max de la plage A1:A10

=maxs(A1:A10,5)

Sheets("Compo_FO").Activate

dernligne = Range("AC" & Rows.Count).End(xlUp).Row

Sheets("H31").Value = maxs(Sheets("Compo_Fo").Range("BA2:BA" & dernligne), 10)

voici mon code mais il m'affiche l'indice n'appartient pas à la selection

Bonjour Skrax, h2so4,

Une autre version, beaucoup plus simpliste ; on ne se moque pas acide

La formule Grande.valeur en VBA :

Application.WorksheetFunction.Large(Range("A1:A20"), 1)

Je concatène en B1 avec les critères 1 à 5 dans la zone A1:A20 ;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("B1") = Application.WorksheetFunction.Large(Range("A1:A20"), 5) & ";" & Application.WorksheetFunction.Large(Range("A1:A20"), 4) & ";" & Application.WorksheetFunction.Large(Range("A1:A20"), 3) & ";" & Application.WorksheetFunction.Large(Range("A1:A20"), 2) & ";" & Application.WorksheetFunction.Large(Range("A1:A20"), 1)

End Sub

Cordialement,

En effet, ca marche très bien !!!! Merci beaucoup ! également à h2so4

Bonjour

peux être plus simple avec une macro

A+

Maurice

Sub TestA()
    For L = 1 To 5
        Range("F" & L + 1) = Application.Large(Columns(1), L)
    Next
End Sub

@archer, @xorsankikai,

vos contributions sont évidemment plus simples, je dois avoir un esprit tordu ! bravo à vous en tout cas.