Trier des colonnes EXCEL

Version imprimable

Salut le forum ;)

Je souhaite faire un tri sur une plage de cellules, et dès que mon nombre de critères est supérieur à 4 le programme plante :aie:
Code:

1 2 3 4 With ActiveWorkbook.Worksheets("PiecesAFabriquer") .Sort.SortFields.Clear .Range("A3", Range("M3").SpecialCells(xlCellTypeLastCell)).Sort Key1:=.Range("F3"), Order1:=xlAscending, Key2:=.Range("H3"), Order2:=xlAscending, Key3:=.Range("J3"), Order3:=xlAscending, Key4:=.Range("L3"), Order4:=xlAscending, Header:=xlNo End With
Existe-t-il une limite des critères key := ???

Merci pour vos suggestions!!!

12/02/2008, 19h06
ouskel'n'or

Oui, tu es limité à trois critères. Mais tu peux combiner plusieurs tris successifs.
12/02/2008, 19h43
Jeanvaljean44

d'accord!!!

Et comment je peux combiner d'autres tri sans annuler les précédents???
12/02/2008, 19h55
ouskel'n'or

En commençant pas le dernier, par exemple... A vrai dire tout dépend de ce que tu veux obtenir au final. Là sans les données et un exemple de ce que tu veux obtenir... désolé.

Bonjour tlm,

C'est vrai que sans le classeur complet, il faut un peu jouer aux devinettes mais sur base du code initial, on pourrait en déduire que :

Code:

1
2
3
4
5
6
7
8
9
With ActiveWorkbook.Worksheets("PiecesAFabriquer")
    .Sort.SortFields.Clear
    With .Range("A3", Range("M3").SpecialCells(xlCellTypeLastCell))
    .Sort Key1:=.Range("L3"), Order1:=xlAscending, Header:=xlNo
    .Sort Key1:=.Range("J3"), Order1:=xlAscending, Header:=xlNo
    .Sort Key1:=.Range("H3"), Order1:=xlAscending, Header:=xlNo
    .Sort Key1:=.Range("F3"), Order1:=xlAscending, Header:=xlNo
    End With
End With

13/02/2008, 08h44
Jeanvaljean44

salut Fring,

Désolé, cette méthode ne fonctionne pas non plus, car seul le dernier filtre est pris en compte....

Je viens d'essayer une nouvelle méthode qui fonctionne plutôt bien :P

Code:

1
2
3
4
5
6
7
8
9
10
11
ActiveWorkbook.Worksheets("PiecesAFabriquer").Sort.SortFields.Add Key:=Range("F" & FirstrowLaser & ":F" & LastrowLaser), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal  
ActiveWorkbook.Worksheets("PiecesAFabriquer").Sort.SortFields.Add Key:=Range("H" & FirstrowLaser & ":H" & LastrowLaser), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal           
ActiveWorkbook.Worksheets("PiecesAFabriquer").Sort.SortFields.Add Key:=Range("J" & FirstrowLaser & ":J" & LastrowLaser), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal  
        With ActiveWorkbook.Worksheets("PiecesAFabriquer").Sort
            .SetRange Range("A" & FirstrowLaser & ":M" & LastrowLaser)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With

Seul problème, la dernière ligne de ma plage de cellules n'est pas triée...