Bonjour,
J'ai un petit souci avec une acro je souhaiterai faire un tri ascendant mais sur 4 colonnes! Je n'y arrive pas! Voici mon code!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub Bouton1047_QuandClic()
 
    ThisWorkbook.Sheets("BDD").Select
    Sheets("BDD").Range("A:P").Sort Key1:=Sheets("BDD").Range("D2"), Order1:=xlAscending, Key2:=Sheets("BDD").Range("F2") _
        , Order2:=xlAscending, Key3:=Sheets("BDD").Range("G2"), Order3:=xlAscending, Key4:=Sheets("BDD").Range("H2"), Order4:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
 
End Sub
Pourriez vous m'aider s'il vous plait!