C
cass
Guest
bonsoir le forum,
J'ai un petit probleme je voudrais qu'en cliquant sur mon boutton "Journal des ventes" j'aille sur la feuille selectionner et que ça me fasse un tri en meme temps (selon 3 critères).
Voila le code que j'ai mis :
Private Sub Journal_Click()
Sheets("journal vente").Select
Range("B3:E40530").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("C4") _
, Order2:=xlAscending, Key3:=Range("D4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("B4").Select
End Sub
Apparrement le probleme est au niveau de "Range("B3:E40530").Select"
@+++
J'ai un petit probleme je voudrais qu'en cliquant sur mon boutton "Journal des ventes" j'aille sur la feuille selectionner et que ça me fasse un tri en meme temps (selon 3 critères).
Voila le code que j'ai mis :
Private Sub Journal_Click()
Sheets("journal vente").Select
Range("B3:E40530").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("C4") _
, Order2:=xlAscending, Key3:=Range("D4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("B4").Select
End Sub
Apparrement le probleme est au niveau de "Range("B3:E40530").Select"
@+++