Bonsoir a tous
je desire faire un tri avec
1 Range(Cells(10, 1), Cells(Cells(Rows.Count, 3).End(xlUp).Row, 105)).Select
2 ActiveWorkbook.Worksheets("ETUDES").Sort.SortFields.Clear
3 ActiveWorkbook.Worksheets("ETUDES").Sort.SortFields.Add Key:=Range("A10:A69") _
4 , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
5 With ActiveWorkbook.Worksheets("ETUDES").Sort
6 .SetRange Range("A10A69")
7 .Header = xlGuess
8 .MatchCase = False
9 .Orientation = xlTopToBottom
10 .SortMethod = xlPinYin
11 .Apply
12 End With
13End Sub
ligne 1 selection de mes lignes non vide
ligne 2 a 13 fait le tri ( realiser avec la commande enregistrer macro )
mon souci viens enfin je croi de la ligne 4 et 6
car le nbre de mes ligne varies + ou -
désolé pour cette question mais je suis novice
merci pour le coup de main
Partager