Bjr,
je cherche à créer une macro pour trier un tableau avec 9 critères
mais je coince quelque peu !!!
Votre aide serait la bienvenue
Merci
Sub TRI()
'
'
Range('E6:AH23').Select
Selection.Sort Key1:=Range('J6'), Order1:=xlDescending, Key2:=Range('AA6' _
), Order2:=xlDescending, Key3:=Range('AB6'), Order3:=xlDescending, _
Key4:=Range('AC6'), Order4:=xlDescending, Key5:=Range('AD6'), Order5:=xlDescending, _
Key6:=Range('AE6'), Order6:=xlDescending, Key7:=Range('AF6'), Order7:=xlDescending, _
Key8:=Range('AG6'), Order8:=xlDescending, Key9:=Range('AH6'), Order9:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal, DataOption4:=xlSortNormal, DataOption5:=xlSortNormal, _
DataOption6:=xlSortNormal, DataOption7:=xlSortNormal, DataOption8:=xlSortNormal, _
DataOption9:=xlSortNormal
End Sub
Message édité par: archi, à: 29/06/2005 14:46
je cherche à créer une macro pour trier un tableau avec 9 critères
mais je coince quelque peu !!!
Votre aide serait la bienvenue
Merci
Sub TRI()
'
'
Range('E6:AH23').Select
Selection.Sort Key1:=Range('J6'), Order1:=xlDescending, Key2:=Range('AA6' _
), Order2:=xlDescending, Key3:=Range('AB6'), Order3:=xlDescending, _
Key4:=Range('AC6'), Order4:=xlDescending, Key5:=Range('AD6'), Order5:=xlDescending, _
Key6:=Range('AE6'), Order6:=xlDescending, Key7:=Range('AF6'), Order7:=xlDescending, _
Key8:=Range('AG6'), Order8:=xlDescending, Key9:=Range('AH6'), Order9:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal, DataOption4:=xlSortNormal, DataOption5:=xlSortNormal, _
DataOption6:=xlSortNormal, DataOption7:=xlSortNormal, DataOption8:=xlSortNormal, _
DataOption9:=xlSortNormal
End Sub
Message édité par: archi, à: 29/06/2005 14:46