problème avec le tri

Version imprimable

]Bonjour à tous,

Je vous post mon dernier souci de la journée.
Je me lance dans le tri et le filtre en macro, j'ai un bouquin de VBA qui n'en parle pratiquement pas alors j'ai fait des recherches sur le forums j'ai pompé un tutoriel mais c'est pas exactement ma problématique du coup je demande de l'aide.

Voici mon début de code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub filtre_principal() Dim Plagefiltre As Range, PlageBase As Range, cmptl As Long Dim Zone As Range, Message As String With ThisWorkbook.Worksheets("CC2012") Set PlageBase = .Range(.Cells(1, 1), .Cells(1, 1)).End(xlDown).Resize(, 39) End With With PlageBase '------------enlève les éventuels anciens filtres .AutoFilter '------------filtre la colonne St (5) .AutoFilter Field:=5, Criteria1:=Array("2", "1", "0", "3"), Operator:=xlFilterValues, visibledropdown:=True 'cette alternance ("2", "1", "0", "3") est une liste de tri personnalisée .AutoFilter Field:=8, Criteria1:=xlAscending, Operator:=xlFilterValues, visibledropdown:=True ' tri dans l'ordre alphabétique End With End Sub
le tri en fonction des valeurs 2'1'0'3 ne se fait pas (colonne 5) et le tri par ordre alphabétique non plus ... pourtant avec l'enregistreur de macro il me semblait que c'était xlAscending mais j'interprète facilement...:aie:

Merci d'avance aux guides.

Bonjour,

Je n'ai pas testé mais cela devrait être quelque chose d'approchant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub filtre_principal()
Dim Plagefiltre As Range, PlageBase As Range, cmptl As Long
Dim Zone As Range, Message As String
 
With ThisWorkbook.Worksheets("CC2012")
    Set PlageBase = .Range(.Cells(1, 1), .Cells(1, 1)).End(xlDown).Resize(, 39)
End With
    '------------enlève les éventuels anciens filtres
PlageBase.AutoFilter
    '------------filtre la colonne St (5)
PlageBase.AutoFilter Field:=5, Criteria1:=Array("2", "1", "0", "3"), Operator:=xlFilterValues, visibledropdown:=True
        'cette alternance ("2", "1", "0", "3") est une liste de tri personnalisée
 
       ' tri dans l'ordre alphabétique
 
With ThisWorkbook.Worksheets("CC2012").AutoFilter.Sort
    .SortFields.Add Key:=Range _
        ("H:H"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
 
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
 
 
End Sub

Bonjour Jérôme,

Merci pour ta réponse, le code pour le tri par ordre alphabétique marche
je n'ai pas tout copier de l' enregistreur de macro pour le tri personnalisé c'est pour ça que ça buguait. Après y a-t-il un moyen plus propre d'écrire ceci ?

Code:

1
2
3
4
5
   '------------filtre la colonne St (5)
ActiveWorkbook.Worksheets("CC2012").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("E4:E1001"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "2,1,0,3,A", DataOption:=xlSortNormal
        'cette alternance ("2", "1", "0", "3") est une liste de tri personnalisée

je mets le code complet pour les gens comme moi qui débutent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub filtre_principal()
Dim Plagefiltre As Range, PlageBase As Range, cmptl As Long
Dim Zone As Range, Message As String
 
With ThisWorkbook.Worksheets("CC2012")
    Set PlageBase = .Range(.Cells(1, 1), .Cells(1, 1)).End(xlDown).Resize(, 39)
End With
    '------------enlève les éventuels anciens filtres
PlageBase.AutoFilter
    '------------filtre la colonne St (5)
ActiveWorkbook.Worksheets("CC2012").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("E4:E1001"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "2,1,0,3,A", DataOption:=xlSortNormal
        'cette alternance ("2", "1", "0", "3") est une liste de tri personnalisée
 
       ' tri dans l'ordre alphabétique
 
With ThisWorkbook.Worksheets("CC2012").AutoFilter.Sort
    .SortFields.Add Key:=Range _
        ("H:H"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
 
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
 
 
End Sub