Trier à partir de la ligne 11

[sev]

Bonjour à tous ,
Comment modifier ce code pour faire un tri croissant à partir de la ligne 11 ?

Worksheets("Fichier").Activate
Cells.Sort Key1:=Range("E11"), Order1:=xlAscending, Key2:=Range("B11") _
    , Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
   False, Orientation:=xlTopToBottom

Merci pour votre coup de pouce

 

[Guest]

Re : Trier à partir de la ligne 11

Bonjour Sev, le Forum,

Ceci devrait le faire

Worksheets("Fichier").Activate
   'Trie la totalité de la plage utilisée dans la feuille à partir de la ligne 11
    With ActiveSheet.UsedRange.Offset(10).Resize(ActiveSheet.UsedRange.Rows.Count - 10)
 
         .Sort Key1:=Range("E11"), Order1:=xlAscending, Key2:=Range("B11") _
          , Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
         False, Orientation:=xlTopToBottom 
    End With

A+

 

[sev]

Re : Trier à partir de la ligne 11

Merci celà fonctionne