Bonjour,

J'ai enregistrer une macro pour faire un sort, ce qui me donne le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Columns("A:F").Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range("D1") _
, Order2:=xlAscending, Key3:=Range("E1"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal,
Mais moi, ce que je veux vraiement c'est mettre 4 critères. Donc j'ai essayer de rajouter un Key4, un Order4 et un DataOption4 mais ca ne marche pas.

Y-a-t-il une solution pour ce problème.

Merci.