Etablir un classement

Re : Etablir un classement

Salut Nicko,

Tu peux le faire sans macro avec la fonction RANG :

=RANG(C2;DECALER($C$2;;;NB(C:C)))

La fonction DECALER fournit la plage à classer en comptant avec NB le nombre de lignes.

A+
Horatio

Re : Etablir un classement

Merci pour ta reponse, même si j'esperer une solution en vba à incruster dans un code !

Mais bon, ta formule m'interesse car je ne connaissais pas la fonction decaler.

En tout cas en depanage, ca marche !

Encore merci

Re : Etablir un classement

Bonsoir Nicko et Lord Nelson

Voici la formule de Lord Nelson au format VBA



XanorK

Re : Etablir un classement

Bonsoir Xanork, Nicko et le forum,

Très bien ta macro Xanork. On peut aussi proposer une variante qui ne fera pas apparaître de formule :

Sub Classement()
Dim i As Long
Dim RG As Range

'Cette boucle génère la formule RANG

'For i = 2 To Range("B1").End(xlDown).Row
' Range("A" & i).FormulaR1C1 = "=RANK(RC[2],OFFSET(R2C3,,,COUNT(C[2])))"
'Next i

'Cette variante donne le classement sans indiquer la formule dans chaque cellule

Set RG = Range("C2:C" & Range("C2").End(xlDown).Row)
For i = 2 To Range("B1").End(xlDown).Row
Range("A" & i) = WorksheetFunction.Rank(Range("C" & i), RG)
Next i

Range("A:C").Select
Selection.Sort key1:=Range("A2"), header:=xlGuess
Range("A1").Select
End Sub

A toi de voir Nicko !

A+
Horatio