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

berru76

XLDnaute Occasionnel
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
 

Pièces jointes

  • Tri.xlsm
    86.6 KB · Affichages: 10

fanfan38

XLDnaute Barbatruc
Bonjour
Est ce que le code ci joint te conviendrai?
VB:
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
 

berru76

XLDnaute Occasionnel
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
315 093
Messages
2 116 127
Membres
112 667
dernier inscrit
foyoman