Quels changements de formules ?

Ici le classement privilégie les Victoires et en cas d'égalité les Points,

Serait-il possible d'obtenir un classement ( différent ) MAIS en privilégiant

d'abord les Points et en cas d'égalité les Victoires ?

Merci de votre aide

margar

Bonjour

il suffit de remplacer la macro de THIOU (Module3) par celle-ci (certainement imparfaite car réalisée avec l'enregistreur) qui trie la colonne C en décroissant, puis la colonne D en décroissant et de l'affecter au bouton classement

Sub Classement2()
    Range("C3").Select
    Selection.AutoFilter
    Range("A2:D250").Sort Key1:=Range("C2"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2:D250").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.AutoFilter
End Sub

Cordialement

Bonsoir Amadéus

Je viens de tester le programme mais j'optiens une :

erreur d'exécution '1004'

La méthode Auto-Filter de la classe Range a échoué

merci de ta compréhension

amicalement

margar

Bonjour

En effet, j'ai testé depuis la feuille Classement et j'ai oublié ensuite

Sub Classement2()

Sheets("Classement").Select

Range("C3").Select

Rajoute la ligne de Code surlignée pour sélectionner la feuille Classement

Cordialement

Bonjour

ok, mais le classement reste incomplet...

Peut-on y remédier?

Merci d'avance

Codialement

margar

Bonjour

A voir

Merci beaucoup à Amadéus et Banzaï64 de leur aimable colaboration.

Cordialement

margar