Problème de tri

[Akarodon]

Bonjour à tous !

Voilà mon problème que, j'espère, vous pourrez m'aider à résoudre.

J'ai codé un tri en VBA à partir de l'enregistrement d'une macro, et voici le code :

Sub Tri_separation()

Range("A8:Y352").Select
Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Key2:=Range("B8"), _
Order2:=xlAscending, Key3:=Range("A8"), _
Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("A1").Select

End Sub


Ce tri prend en compte trois niveaux, le souci est que quand je veux rajouter un niveau pour prendre un quatrième critère de tri, j'ai une erreur.

Alors ? Une idée ?

Merci d'avance

 

[fhoest]

Re : Problème de tri

bonjour
veux tu indiquer quel code tu ajoutes et quel erreur tu as
merci.

 

[Akarodon]

Re : Problème de tri

Re !
le rajout de code en gras souligné

Sub Tri_separation()

Range("A8:Y352").Select
Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Key2:=Range("B8"), _
Order2:=xlAscending, Key3:=Range("A8"), _
Order3:=xlAscending, Key4:=Range("D8"), Order4:=xlAscending,_
Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("A1").Select

End Sub


Erreur d'exécution 1004 qui me montre la ligne DataOption2:=xlSortNormal

j'ai essayé de rajouter DataOption3:=xlSortNormal, DataOption4:=xlSortNormal

mais rien n'y fait

 

[fhoest]

Re : Problème de tri

Bonjour,
As tu mis un espace entre la virgule et le tiré bas ", _" derrière le order4:=xlAscending, "espace" _
si pas ça envoie ton fichier sans données confidentielle
A+