Discussion :

[PradBoule]

Bonjour,

j'ai un fichier sur lequel j'aimerais effectuer 6 tris successifs (6 clés de tris) sur les colonnes, et quand je code ça en vba, les 3 premiers tris successifs marchent très bien, mais à partir du moment où je rajoute une quatrième clé, le message "Erreur de compilation : argument nommé introuvable" apparait.
J'ai l'impression que ca vient du fait que ce soit un quatrième critère de tri, car quand je mets ce critère en 3è (et sans 4è critère), le tri marche, donc ca ne vient pas du critère.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub tri2()
 
    Dim nb As Integer
    nb = Application.WorksheetFunction.CountA(Range("A:A"))
 
    Dim plage As Excel.Range
    Set plage = Sheets(31).Range(Cells(2, 1), Cells(nb, 38))
 
    plage.Sort key1:=Range(Cells(2, 3), Cells(nb, 3)), Order1:=xlAscending, _
    key2:=Range(Cells(2, 20), Cells(nb, 20)), order2:=xlAscending, _
    key3:=Range(Cells(2, 1), Cells(nb, 1)), order3:=xlDescending, _
    key4:=Range(Cells(2, 16), Cells(nb, 16)), order4:=xlDescending
 
 
End Sub

Est-ce que le nombre de critères de tri est limité en vba? Parce que avec la fonction normale de tri on peut réaliser les 6 critères de tri successif.
Ou alors y a-t-il une erreur dans mon code dont je ne me rends pas compte?

Merci pour votre aide.

[mercatog]

L'astuce est d'ajouter une colonne où tu concatène tes 6 colonnes de critères, tu tri sur cette colonne ajoutée et ensuite tu la supprime.

[kiki29]

Salut, voir limites pour 2003 2007

[PradBoule]

@Mercatoq : je ne comprends pas trop comment la concaténation va aider parce que mes critères ne sont pas du même type, et en plus il y a des tris croissants et décroissants. Tu pourrais m'expliquer stp?

@kiki29 : merci pour la liste des limites, je cherchais en fait une solution =)

[mercatog]

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub tri2()
Dim LastLig As Long
 
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    With .Range("AM2:AM" & LastLig) 'En colonne AM on concatène les colonnes avec tri croissant (Pour cet exemple, il s'agit des colonnes C et T
        .Formula = "=C2 &""|""&T2"
        .Value = .Value
    End With
    With .Range("AP2:AP" & LastLig) 'En colonne AP on concatène les colonnes avec tri décroissant (Pour cet exemple, il s'agit des colonnes A et P
        .Formula = "=A2 &""|""&P2"
        .Value = .Value
    End With
    .Range("A2:AP" & LastLig).Sort Key1:=.Range("AM2"), Order1:=xlAscending, Key2:=.Range("AP2"), order2:=xlDescending, Header:=xlNo
    .Range("AM1:AP1").EntireColumn.Delete
End With
End Sub

[78chris]

Bonjour


Si tu utilises une version antérieure à 2007 il est également possible de faire 2 tris successifs : un avec les 3 critères de poids inférieur (donc les 4ème, 5ème et 6ème) puis un second tris avec les 3 critères de poids fort.

C'est valable en manuel comme en macro.

[PradBoule]

mercatog, je ne comprends pas trop comment ta technique peut marcher pour des tris successifs sachant que tu mets tout dans la même colonne.

Le plus simple n'est-il pas de coder directement l'algo de tri pour les 3 derniers?

[Philippe Tulliez]

Bonjour,
Tu as un tableau avec 10 colonnes.
Dans excel à la 11ème colonne, dans la cellule K1, tu tapes

Code :

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

=J1 & I1 & G1 & F1

Soit la concaténation de 4 cellules provenant de 4 colonnes.
A l'aide de la poignée de recopie, tu copies cette formules sur les autres lignes.
Tu sélectionnes K1 et tu cliques sur tri de A à Z, tu viens de faire un tri sur 4 colonnes.
C'est cela que Mercatog, t'explique de faire en VBA mais sur 2 colonnes parce-que tu veux faire un tri croissant et décroissant.
Cela s'appelle une astuce pour contourner les limitations d'excel (200)

[PradBoule]

Ok j'avais pas compris ca comme ca.
Effectivement c'est assez efficace. Le seul problème reste pour des caractères spéciaux pour lesquels il se passe des trucs bizarres.
Typiquement mon tri croissant manuel met les espaces et les * à la fin alors qu'avec cette manip il les met au début. Si vous avez une (autre) astuce, je suis preneur.
Merci en tous cas!