2ème maximum

Salut, je cherche à trouver un deuxième maximum.

Par exemple, on a une colonne :

31

12

15

2

8

30

Le maximum est 31 et le deuxième 30. J'espère que vous comprenez cela ?

Ensuite remplir une cellule avec cette valeur sans trier la colonne. Par exemple la colonne est A1:A16 et le deuxième maximum est dans la cellule B1.

Mon code (maladroit) est le suivant :

Sub Tri()

Worksheets("Feuil1").Range("A1:A16").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Le problème c'est à la 3ème ligne.

Merci beaucoup

Bonjour le forum,

Avec une formule :

=GRANDE.VALEUR(A:A;2)

Merci mais c'est pas un code VBA ?

Bonjour,

Tu peux utiliser cette fonction en vba (voir worksheetFunction) mais comme c'est pour mettre dans une cellule autant y mettre la formule non ?

Mais tu veux la 2nde grande valeur ou le 2nd maximum d'une courbe ? Là ton exemple est valable pour les 2 interprétations...

eric