Discussion :

[Jeanvaljean44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

[ouskel'n'or]

Oui, tu es limité à trois critères. Mais tu peux combiner plusieurs tris successifs.

[Jeanvaljean44]

d'accord!!!

Et comment je peux combiner d'autres tri sans annuler les précédents???

[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é.

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[Jeanvaljean44]

salut Fring,

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

[Jeanvaljean44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...