Discussion :

[Godzestla]

Bonjour,
question sans doute bête mais je calle.

Quel est le code pour relire le(les) critères actifs pour Autofilter pour une colonne donnée ?

par exemple, en colonne 10 (J), j'ai mis manuellement le critère suivant.

Code :

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

1
2
    ActiveSheet.Range("$A$1:$Z$3635").AutoFilter Field:=10, Criteria1:= _
        "1380631."

Comment puis-je relire en VBa ce ou ces critères.

Merci d'avance.

[parmi]

Bonjour,

adapté de l'aide sur Filters et à adapter selon les besoins...

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
22
23
24
25
26
27
28
29
30
    Dim strTemp As String
    Dim Cnt As Integer
    Dim f As Filter
    Dim w As Worksheet
    Const ns As String = "inactif"
 
    Set w = ActiveSheet
    Cnt = 1
 
    For Each f In w.AutoFilter.Filters
        If f.On Then
            c1 = Right(f.Criteria1, Len(f.Criteria1) - 1)
            If f.Operator Then
                op = f.Operator
                c2 = Right(f.Criteria2, Len(f.Criteria2) - 1)
            Else
                op = ns
                c2 = ns
            End If
        Else
            c1 = ns
            op = ns
            c2 = ns
        End If
 
        strTemp = strTemp & "Filtre " & Cnt & ": 1e critère=" & c1 & " - opérateur=" & op & " - 2e critère=" & c2 & vbCrLf
 
        Cnt = Cnt + 1
    Next
    MsgBox strTemp

[Godzestla]

Cela ne fonctionne que de manière imparfaite, comme expliqué par daniel.c ici.

Pour 1 colonne donnée, ce qui fonctionne est
* pas de filtrage
* filtrage sur 1 valeur
* filtrage sur 2 valeurs

Au delà.... nada si ce n'est qu'on sait qu'il y a 1 filtre et qu'on ne peut pas récupérer les paramêtres. J'adore.

J'ai un peu modifié le code de l'aide en ligne que tu m'as fourni, car au delà de 2 valeurs, il bugge magistralement.

Le code ci-dessous ne devrait pas planter, mais est inutile au delà d'1 filtrage sur plus de 2 valeurs pour 1 colonne.


Parfois, je me demande pourquoi les choses sont si étrangement compliquées et en apparence très mal pensées.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Read_Filter_File1()
Dim f As Filter
Dim w As Worksheet
Dim rw As Long
Const ns As String = "Not set"
 
Dim Sheet_Name As String
Dim Row_count As Long
 
Sheet_Name = ThisWorkbook.Sheets("#Parms").Range("B4").Value
Set w = ThisWorkbook.Worksheets(Sheet_Name)
Set w2 = ThisWorkbook.Worksheets("FilterData")
With w
    .Select
    rw = 1
    For Each f In w.AutoFilter.Filters
        If f.On Then
            Select Case f.Operator
                   Case 0
                         c1 = Right(f.Criteria1, Len(f.Criteria1) - 1)
                         op = ns
                         c2 = ns
                   Case xlFilterValues  '> 2 valeurs sélectionnées
                         c1 = "xlFilterValues"
                         c2 = ns
                         c3 = ns
                   Case xlOr, xlAnd
                        c1 = Right(f.Criteria1, Len(f.Criteria1) - 1)
                        op = f.Operator
                        c2 = Right(f.Criteria2, Len(f.Criteria2) - 1)
                   Case Else
                        c1 = ns
                        op = xlFilterValues
                        c2 = ns
            End Select
         Else
            c1 = ns
            op = ns
            c2 = ns
        End If
        w2.Cells(rw, 1) = c1
        w2.Cells(rw, 2) = op
        w2.Cells(rw, 3) = c2
        rw = rw + 1
    Next
End With
 
End Sub

[Philippe Tulliez]

Bonjour,
Il me semble qu'il y a une bonne solution dans cette discussion