salut a tous
je n arrive pas a associer c 2 codes pour avoir un tri alphabétique global des colonnes "E" et "I"
ex: si je met col ("E" zz) et col ("I" aa) après le classement je doit avoir col ("E" aa) et col ("I"zz)
ci-joint les 2 codes
'Tri de la colonne E
ActiveWorkbook.Worksheets("List").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List").Sort.SortFields.Add Key:=Range("e2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("List").Sort
.SetRange Range("e2:e13")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Tri de la colonne I
ActiveWorkbook.Worksheets("List").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List").Sort.SortFields.Add Key:=Range("i2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("List").Sort
.SetRange Range("i2:i4")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
merci