Classement sur 2 critères de l'ensemble des feuilles

Bonjour à tous,

je l'avais bien dit que je reviendrais....

Je souhaite trier l'ensemble des feuilles de mon classeur selon deux critères "N°ouvrage" (T7) et "Commentaire"(U7). Le positionnement est identique sur toutes les feuilles.

1- "N°ouvrage" (T7) par ordre croissant en premier

2- "Commentaire" (U7) par ordre croissant en second.

En revanche chaque feuille ne comporte pas le même nombre de données.

Je vois comment faire une boucle sur toutes les feuilles et l'enregistreur me donne une piste pour le tri mais je ne vois pas comment l'adapter.

Sub classement()
'
' classement des colonnes ouvrages & commentaires

Dim feuil As Worksheet
    For Each feuil In Worksheets
    feuil.Activate
    ' classement
    Range("T7").Select
    ActiveWorkbook.Worksheets("TROARN").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TROARN").Sort.SortFields.Add Key:=Range("S8:S22") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("TROARN").Sort.SortFields.Add Key:=Range("U8:U22") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TROARN").Sort
        .SetRange Range("A7:AB22")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    Next feuil
' retour sur feuille "Cumul anomalies"
Sheets("Cumul anomalies").Activate
ActiveSheet.Cells(7, 1).Select
    End With
End Sub

A vous lire.

bonjour,

une proposition

Sub aargh()
    For Each ws In Worksheets
        With ws
            dl = .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("A7:AB" & dl).Sort key1:=.Range("S7"), order1:=xlAscending, key2:=.Range("U7"), order2:=xlAscending, Header:=xlYes
        End With
    Next
End Sub

Merci h2so4,

on y est presque le tri se fait en premier sur la colonne "Commentaire" (U7) en premier et "N°ouvrage" (T7) en second.

Quant à moi je souhaite l'inverse...

A te lire.

Merci h2so4 pour votre aide,

il y avait juste un décalage de cellule dans le tri. Du coup ça fonctionne.

A bientôt.

bonjour,

j'ai adapté la macro sur base du code que tu as fourni et non sur base de ta demande qui était pourtant claire...

content que tu aies pu trouver la solution que te convient.