classement et points

[paskikic]

Re bonjour, aux xlnautes

y a t il qqn qui pourrais me transcrire se code en vba pour trier et affecter des points suivant un classement mais ou le nombre de participants change.

je vous joint mon exemple

merci a vous.

 

[JCGL]

Re : classement et points

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Formule()
    Dim DerL&, Lig&
    DerL = Feuil5.Range("A" & Rows.Count).End(xlUp).Row
    Range("B2:D" & DerL).Formula = "=RAND()*20 "
    Range("B2:D" & DerL) = Range("B2:D" & DerL).Value
    For Lig = 2 To DerL
        Cells(Lig, 6) = WorksheetFunction.Rank(Cells(Lig, 5), Range("E2:E" & DerL), 1)
    Next Lig
End Sub

A+ à tous

 

[paskikic]

Re : classement et points

slt, JCGL

c est nickel merci a toi c est pile poil ce qu il me faut.
encore merci

 

[CBernardT]

Re : classement et points

Bonjour paskikic, le forum,

Salut JCGL

une version un peu différente.