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!
Pourriez vous m'aider s'il vous plait!
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
Partager