Etablir un classement

[Nicko]

Bonjour à tous,

J'ai un tableau avec un nombre de lignes variable
En colonne A, je souhaite determiner le classement de chaque ligne.

J'ai en B les nom
En C les points

En gros, je souhaite effectuer la formule Rang mais en VBA sur un tableau non fixe (nb de lignes variable)

Dans mon projet,
1er etape > calcul du nombre de points pour chacun
2e etape > determination du rang
3e etape > tri en fonction du classement

D'avance merci pour l'info

Nicko

 

[Lord Nelson]

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

 

[Nicko]

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

 

[XanorK]

Re : Etablir un classement

Bonsoir Nicko et Lord Nelson

Voici la formule de Lord Nelson au format VBA



XanorK

 

[Lord Nelson]

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