XL 2016 Classement selon plusieurs critères

[Hulk]

Bonsoir à tous

Comme le titre l'indique, je souhaiterais classer des joueurs selon plusieurs critères.
Point, parties jouées, parties perdues, etc.

Un exemple dans le classeur ci-joint vaut mieux que des mots.

Merci pour vos réponses et à bientôt

 

[mapomme]

Bonsoir @Capuano

Une piste dans le fichier joint avec une colonne auxiliaire en K.
L'absence de doublons n'est pas exclue.
La solution est limitée à 99 joueurs.

 

[Hulk]

Salut mapomme,

Impeccable !

Juste une petite chose, pour l'instant pour classer dans l'ordre, je sélectionne la plage A2:R11 et je trie de la valeur la plus faible à la plus élevée.
Y aurait-il un moyen d'automatiser ça ?

Merci de ton aide et bonne nuit !

 

[mapomme]

Re,

Oui c'est tout à fait possible mais pour moi ce ne sera pas avant ce soir.
Acceptes tu les macros VBA ou seulement les formules ?

PS: avec un peu de chance, d'autres satisferons ta 2ème demande avant ce soir

 

[Hulk]

Hello,

Ben j'ai enregistré une simple macro sur le tri et ça joue.

ActiveWorkbook.Worksheets("YVV").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("YVV").Sort.SortFields.Add2 Key:=Range("A2:A11"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets("YVV").Sort
        .SetRange Range("A2:R11")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Range("A1").Select

Mais si tu as plus "pro" ou une proposition avec formules je suis preneur.

Càd qu'avec des formules il aurait 2 tableaux ?

Bref, vois si tu peux et veux et je verrai bien comment tu as monté la chose.

Tu réponds quand tu peux sans soucis.

En tous cas merci pour tout mapomme !

Bonne soirée à tous !

 

[mapomme]

Bonjour @Capuano

C'est exactement ça.
En utilisant la méthode Sort de l'objet Range, on peut le faire avec une instruction sur une seule ligne (si trois critères ou moins).

En incluant la ligne des en-têtes:

Sub trier()
   Range("a1:r11").Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes, MatchCase:=False
End Sub

ou bien en ignorant la ligne des en-têtes:

Sub trier()
   Range("a2:r11").Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlNo, MatchCase:=False
End Sub

Voir ICI

 

[Hulk]

Salut mapomme !

Que dire à part merci.

À tout bientôt !