tri vba ?

[cass]

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"


@+++

 

[jhocquevelt]

Bonjour cass, bonjour le forum


Sans les deux dernières lignes de Selection.Sort :
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Le tri devrait fonctionner correctement.

Bonne prog.

 

[cass]

re bonjour,

la procedure s'arrete au "Range("B3:E40530").Select" , le message est la méthode select de la classe range a échoué.


@+++