AU SECOURS ! Fonction Rang en VBA !

[Nuni]

Bonjour à tous,
Je desespere, il faut vraiment m'aider !!!

je souhaite avoir dans la colonne A un classement en fonction de scores qui se trouvent dans la colonne C.

Le probleme, c'est que le nombre de lignes n'est pas fixe.

Je ne peux donc pas simplement faire un copier coller puisque je ne connait pas le nombre de ligne à l'avance !

Alors, comment FAIRE ???

 

[Lord Nelson]

Salut Nuni,

Tu peux essayer ceci :

Sub RangVBA()

Dim DerLigne As Long
Dim CL As Range
'Chercher la dernière ligne des scores dans la colonne C
DerLigne = Range("C65536").End(xlUp).Row
'Ecrire la formule dans la colonne A (à l'américaine)
For Each CL In Range("A2:A" & CStr(DerLigne))
CL.Formula = "=RANK(C" & CStr(CL.Row) & ",C2:C" & CStr(DerLigne) & ")"
Next

End Sub

A+
LN