XL 2016 trier 4 colonnes d'une plage de cellules

[KTM]

Bonjour chers tous
Je voudrais trier 4 colonnes de ma plage
j'ai fais le code ci dessous mais il me renvoie une erreur
Aidez moi à le corriger

Sub TrierQuatreColonnes()
    Dim PlageDeDonnees As Range
    With Sheets("Base 2")
    dl = .Range("A" & .Rows.Count).End(xlUp).Row
    Set PlageDeDonnees = .Range("A3:E" & dl)
    PlageDeDonnees.Sort Key1:=.Range("A3"), Order1:=xlAscending, _
                       Key2:=.Range("B3"), Order2:=xlAscending, _
                       Key3:=.Range("C3"), Order3:=xlAscending, _
                       Key4:=.Range("E3"), Order4:=xlAscending, _
                       Header:=xlNo
    End With
End Sub

 

[cathodique]

Bonsoir,

à tester

Sub TrierQuatreColonnes()
    Dim PlageDeDonnees As Range
    Dim dl As Long
    
    With Sheets("Base 2")
        dl = .Range("A" & .Rows.Count).End(xlUp).Row
        Set PlageDeDonnees = .Range("A3:E" & dl)
        PlageDeDonnees.Sort Key1:=.Range("A3"), Order1:=xlAscending, _
                           Key2:=.Range("B3"), Order2:=xlAscending, _
                           Key3:=.Range("C3"), Order3:=xlAscending, _
                           Key4:=.Range("E3"), Order4:=xlAscending, _
                           Header:=xlYes ' Indique que la ligne 2 contient des en-têtes
    End With
End Sub

Bonne soirée

 

[Dranreb]

Bonjour.
Pour autant que je m'en souvienne, cette ancienne forme de classement d'une plage n'acceptait pas plus de 3 arguments.
Il n'y a qu'à un objet Sort qu'on peut en ajouter d'avantage.
Un Range est dépourvu de propriété de ce type. Une Worksheet la possède, et sa méthode SetRange permet de définir la plage à laquelle elle doit s'appliquer.
Un ListObject est également muni d'une propriété Sort.