Discussion :

[tompom3108]

]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 :

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

Merci d'avance aux guides.