Bonjour,
Le titre n'étant pas très très explicite, je vous expose mon soucis :
J'ai 3 Colonnes : A,B et C avec en A des dates, en B des nombres, et en C des dates
J'aimerais trier la colonne 1 du plus ancien au plus récent, et j'aimerais que la colonne B et C suivent la même ligne qui change.
Exemple :
21/09/2015 ||||| 62 ||||| 13/10/2015
15/01/2015 ||||| 423 ||||| 12/01/2015
02/03/2015 ||||| 116 ||||| 16/02/2015
Résultat souhaité :
15/01/2015 ||||| 423 ||||| 12/01/2015
02/03/2015 ||||| 116 ||||| 16/02/2015
21/09/2015 ||||| 62 ||||| 13/10/2015
Voici mon code :Ca marche pour la colonne B, elle suit bien sa date, mais pas la C.... Sûrement parce que c'est des dates en colonne C je sais pas trop...
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 Option Explicit Sub TriDates() Columns("A:C").Select ActiveWorkbook.Worksheets("izi").Sort.SortFields.Clear ActiveWorkbook.Worksheets("izi").Sort.SortFields.Add Key:=Range("A2:A1039652" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("izi").Sort .SetRange Range("A1:B1039652") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Pourriez vous m'aider svp ?
Merki !
Partager