Tri par Date selon la valeur de la colonne A

Bonjour à tous,

La macro suivante classe les lignes par ordres chronologiques selon les dates en colonne B,

Sub tri()
' adapter éventuellement feuil1
    dl = Worksheets("feuil1").Range("B" & Rows.Count).End(xlUp).Row
    With Worksheets("feuil1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B2:B" & dl) _
                             , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'adapter éventuellement colonnes A et F
        .SetRange Range("A1:E" & dl)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

J aimerais adapter la macro pour trier par dates mais en fonction de la valeur de la colonne A. En gros trier les dates par ordre chonologique pour l 'identifiant A, ensuite par l 'identifiant B, et ensuite pour C.

Merci pour votre, là je suis un peu perdu, je ne sais pas par ou commencer..;

Cordialement

Greg

Voici mon fichier exemple :

Bonjour Greg, bonjour le forum,

Avec l'enregistreur de macro c'est tellement simple !... Même pas besoin d'attendre une réponse dans le forum.

Ça donne :

Sub tri()
dl = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
With Worksheets("Feuil1").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("B2:B" & dl) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("C2:C" & dl) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("D2:D" & dl) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("E2:E" & dl) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SortFields.Add Key:=Range("F2:F" & dl) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .SetRange Range("B1:G" & dl)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
End With
End Sub

Merci ThauThème pour ton aide, et ta réponse .. la macro fonctionne bien..

Mais ce fichier n 'était qu'un exemple, le fichier final aura environ 1000 lignes à trier avec surement 300 identifiants différents dans la colonne A!!!

J étais partis sur la réalisation d'un boucle (je penses) sur la colonne A?? Qu'en penses tu?

Encore merci pour ton aide

Greg

oups, petite erreur dans le fichier exemple...

Greg

Encore merci a tous pour votre aide

Re,

J 'ai essayé et compris la macro, bon tous fonctionne bien.Merci encore ThauThème.

Désolé , j 'ai écris un peu trop vite , sur le poste précédent....

Greg