Faire un tri avec 2 critères en Vba

Hpotter · 8 Octobre 2010

Bonjour à tous,

Avec le code suivant je fais un tri par ordre alphabétique de la colone B de mon tableau. J'aimerai qu'un tri soit fait :

Premièrement sur la colonne K du plus grand au plus petit et deuxièment sur la colonne B par ordre alphabétique.

Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

Code:

Range("A3").Select
    ActiveWorkbook.Worksheets("P").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("P").Sort.SortFields.Add Key:=Range("B4:B500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("P").Sort
        .SetRange Range("A3:L500")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select

Paritec · 8 Octobre 2010

Re : Faire un tri avec 2 critères en Vba

Bonjour Hpotter le forum
essayes comme cela
a+
papou 🙂

Code:

Sub Classer()
   ActiveSheet.Range("A3:L" & Range("A65000").End(xlUp).Row).Sort Key1:=Range("K3") _
   , Order1:=xlAscending, Key2:=Range("B3"), Order2:=xlAscending, Header:=xlYes
End Sub

david84 · 8 Octobre 2010

Re : Faire un tri avec 2 critères en Vba

Bonjour,
je pense que cette macro est obtenue avec l'enregistreur de macro.
Tu dois donc dans ta procédure placer ton 1er tri sur l'entête de la colonne K, puis sur l'entête de la colonne B en spécifiant à chaque fois ton ordre de tri.
Si tu n'y arrive pas, le pus simple est de nous joindre un fichier comme spécifié dans lorsque tu ouvres une discussion.
A+

Edit : bonjour Papou.

Paritec · 8 Octobre 2010

Re : Faire un tri avec 2 critères en Vba

Bonjour David🙂 Hpotter
voilà pour tenir compte de la feuille P car autrement si tu lances la macro d'un autre endroit pas bon, j'avais pas vu , j'avais lu activesheet à la place de activeworkbook!!!! Pardon!!
a+
papou 🙂

Code:

Sub Classer()
    With Sheets("P")
        .Range("A3:L" & .Range("A65000").End(xlUp).Row).Sort Key1:=.Range("K3") _
          , Order1:=xlAscending, Key2:=.Range("B3"), Order2:=xlAscending, Header:=xlYes
    End With
End Sub

Hpotter · 8 Octobre 2010

Re : Faire un tri avec 2 critères en Vba

Bonjour David et paritec,

Merci pour votre aide, cela m'a aidé a résoudre ce problème.
Bonne journée à vous deux.
Cordialement

Faire un tri avec 2 critères en Vba

Hpotter

Guest

Paritec

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Hpotter

Guest

Discussions similaires

Faire un tri avec 2 critères en Vba

Hpotter

Guest

Paritec

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

Hpotter

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency