Discussion :

[backx3]

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 :

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

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...

Pourriez vous m'aider svp ?

Merki !

[casefayere]

Bonjour,
as-tu controlé cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .SetRange Range("A1:B1039652")

, ça ne serait pas "A...:C..." ? et j'aurais traduit comme ça

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
Sub TriDates()
Dim dL As Range
With ActiveWorkbook.Worksheets("izi")
  Set dL = .Range("A" & .Rows.Count).End(xlUp)
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:=Range("A2", dL), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  .Sort
  .SetRange Range("A1", dL(1, 3))
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With
 
End Sub

[LawNasK]

Bonjour,

Tu as :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.SetRange Range("A1:B1039652")

Tu dis donc à ta fonction de tri de ne trier que les colonnes A et B.

Essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.SetRange Range("A:C")

Edit : Même si l'enregistreur de macro le fait, tu n'es pas obligé de sélectionner les cellules à trier. De la même façon, tu peux étendre ton With

La page MSDN de Range.Sort, au passage

[backx3]

Ouais c'est bien ça z'êtes trop forts ....

Merci beaucoup !

Je vais prendre ton code, il a l'air d'être mieux parce que au moins je suis sur de prendre toute la plage et il sera sans doute plus rapide à l'execution !

Merci beaucoup en tout cas.



J'suis grillé ! Aha
J'vais jeter un coup d'œil à ta méthode Law, merci