VBA Trier un tableau d'une autre feuil

[Bens7]

Bonjour a tous !
Je recherche une ligne de code simple:
J'ai un tableau (Sheets("ANNULER")) avec un nombre de ligne qui varie tt le temp :

Je suis sur la Feuil1 avec un commandBouton :
Il doit trier la collone A de la Feuille ANNULER par ordre croisant ....
voila avec l'enregistreur de MAcro c'est un vrai bord.....:

    Range("A1").Select
    ActiveWorkbook.Worksheets("ANNULER").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ANNULER").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ANNULER").Sort
        .SetRange Range("A2:T392")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[Dranreb]

Re : VBA Trier un tableau d'une autre feuil

Bonjour.
Essayez comme ça :

With ActiveWorkbook.Worksheets("ANNULER")
   .Sort.SortFields.Clear
   .Sort.SortFields.Add Key:=.[A1], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   .Sort.SetRange .[A2:T2].Resize(.[A60000].End(xlUp).Row - 1)
   With .Sort
      .Header = xlNo
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply: End With: End With

 

[Bens7]

Re : VBA Trier un tableau d'une autre feuil

Non mais plus simple pas le code de l'enregistreur

 

[Dranreb]

Re : VBA Trier un tableau d'une autre feuil

Alors utilisez la méthode Sort de l'objet Range au lieu de la propriété Sort de l'objet Worksheet: ça me semble en effet un tout petit peu plus simple.

 

[Bens7]

Re : VBA Trier un tableau d'une autre feuil

Bah c'est le but du post je sais pas faire ca.....

 

[Dranreb]

Re : VBA Trier un tableau d'une autre feuil

With ActiveWorkbook.Worksheets("ANNULER")
   .[A2:T2].Resize(.[A60000].End(xlUp).Row - 1).Sort Key1:=.[A1], Order1:=xlAscending, _
      Header:=xlNo, OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom
   End With