Bonjour j'ai ceciSauf que pour trier des dates, c'est un résultat erroné ? Savez vous pourquoi ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Application.EnableEvents = False Range("C9:Q5000").Select ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Add Key:=Range("C9:C5000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Bilan").Sort .SetRange Range("C8:Q5000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Cells(2.1).Select Application.EnableEvents = True
Partager