XL 2019 Macro unique pour tri dan un concours avec un nombre de joueurs différents chaque feuille

[berru76]

Bonjour j'ai fais une macro dans un concours pour un tri de résultats de 96 joueurs elle fonctionne
mais elle ne fonctionne pas dans les autres feuilles avec un nombre de joueurs différents
est il possible de la modifier pour qu'elle fonctionne aussi avec un nombre de joueurs différents
Merci

 

[fanfan38]

Bonjour
Est ce que le code ci joint te conviendrai?

Sub Tri()
  Dim derlig As Long
  derlig = Range("A" & Rows.Count).End(xlUp).Row
 
    Range("AB3:AD" & derlig).Select
    Selection.Copy
    Range("BO3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BO4:BO" & derlig), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BP4:BP" & derlig), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("96").Sort
        .SetRange Range("BO3:BQ" & derlig)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

A+ François

 

[pierrejean]

Bonjour berru

A tester

 

[berru76]

Pour fichier de pierrejean J'ai testé
Dans la macro comment faire pour inverser l'ordre des moins soit dans l'ordre plus petit EX : 0/7 au plus grand EX:-12 car dans classement un joueur qui as 0/7 est avant celui qui as 0/-12
Merci

 

[berru76]

Pour fanfan38
j'ai testé mais ne fonctionne pas correctement
Merci a vous

 

[pierrejean]

Re
Vois cette version

 

[berru76]

Merci c'est bon réussi a mettre Descending
cela marche super