Bonjour Yvouille
je recommence
selectionner les données B4:H11
tri personnalisé Z à A colonne D + Z à A colonne H
puis selectionner les lignes 4 à 11
tri personnalisé colonne A du plus petit au plus grand
Ca doit fonctionner
Macro avec l'enregistreur
Sub Macro1()
'
' Macro1 Macro
'
'
Range("B4:H11").Select
ActiveWorkbook.Worksheets("Feuille de match").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuille de match").Sort.SortFields.Add Key:=Range( _
"D4:D11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Feuille de match").Sort.SortFields.Add Key:=Range( _
"H4:H11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuille de match").Sort
.SetRange Range("B4:H11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Rows("4:11").Select
ActiveWorkbook.Worksheets("Feuille de match").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuille de match").Sort.SortFields.Add Key:=Range( _
"A4:A11"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuille de match").Sort
.SetRange Range("A4:TCY11")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub