Discussion :

[MacKay77]

Bonjour,

J'ai du faire un travail de filtrage sur les heures d'une colonne contenant des dates et heures et avec plusieurs intervalles.
J'ai utilisé

Code :

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

Rows(compteur).EntireRow.Hidden = True

afin de cacher les lignes qui ne convenaient pas.

J'ai aussi rajouté un bouton afin de "défiltrer" ces lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Dim longueur_tab As Integer
    Dim compteur As Integer
    longueur_tab = Range("J" & Rows.Count).End(xlUp).Row
    For compteur = 8 To longueur_tab
        Rows(compteur).EntireRow.Hidden = False
    Next compteur
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Cependant, cette fonction "défiltre" aussi les lignes filtrées de manière plus traditionnelle par les utilisateurs (la petite flèche vers le bas et les cases à cocher/décocher et tout ce qui va avec).

Avez-vous une idée pour conserver ces filtres? Ou peut être pour sauvegarder ces filtres afin de les désactiver puis de les réactiver.

J’espère avoir été assez clair

Bonne journée et merci d'avance !

[Al__22]

Bonjour MacKay,

Pourquoi tu n'essaye pas de sauvegarder les criterial de ton filtre ?

Code :

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

1
2
ActiveSheet.Range("bidule").AutoFilter Field:=1, Criteria1:="=x", _
Operator:=xlOr, Criteria2:="=y"

ici le x et y ainsi que le xlOr ?

[Al__22]

Sinon j'ai ça en réserve (ca doit dater de 2010 il me semble ) mais il faudra l'adapter à ton problème

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
Sub sauve_filtre()
Dim f As Long
Dim col As Integer
Dim iItem As Long
    Set w = ActiveWorkbook.ActiveSheet
    With w.AutoFilter
        currentFiltRange = .Range.Address
        With .Filters
            col = .Count
            ReDim filterArray(1 To col, 1 To 4)
            For f = 1 To col
                With .Item(f)
                    filterArray(f, 1) = .On
                    If .On Then
                        filterArray(f, 2) = .Operator
                        If .Operator = 7 Then
                            multiSelect = ""
                            For iItem = LBound(.Criteria1) To UBound(.Criteria1)
                                multiSelect = multiSelect & IIf(multiSelect = "", "", delim) & .Criteria1(iItem)
                            Next iItem
                            filterArray(f, 3) = multiSelect
                        Else
                            filterArray(f, 3) = .Criteria1
                            If .Operator = 1 Or .Operator = 2 Then
                                filterArray(f, 4) = .Criteria2
                            End If
                        End If
                    End If
                End With
            Next f
        End With
    End With
    w.AutoFilterMode = False
 
End Sub

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
Sub restaure_filtre()
Dim col As Integer
    Set w = ActiveSheet
    w.AutoFilterMode = False
    For col = 1 To UBound(filterArray(), 1)
        'On vérifie s'il y a un filtre pour chaque colonne
       If filterArray(col, 1) = True Then
            'Il y a un filtre. Est-ce un multi-selection?
           If filterArray(col, 2) = 7 Then
                Monfiltre = Split(filterArray(col, 3), delim)
                w.Range(currentFiltRange).AutoFilter Field:=col, Criteria1:=Monfiltre, Operator:=xlFilterValues
            Else
                'le filtre est "classique"
               Monfiltre = filterArray(col, 3)
                If filterArray(col, 2) = 1 Or filterArray(col, 2) = 2 Then
                    Monfiltre2 = filterArray(col, 4)
                    w.Range(currentFiltRange).AutoFilter Field:=col, Criteria1:=Monfiltre, Operator:=filterArray(col, 2), Criteria2:=Monfiltre2
                Else
                    w.Range(currentFiltRange).AutoFilter Field:=col, Criteria1:=Monfiltre
                End If
            End If
        End If
    Next
End Sub

[unparia]

Bonjour

Ne serait-il pas plus simple de :
- constituer la plage toto des lignes visibles avant le filtre
- filtrer comme on l'entend
- restituer la plage toto lorsque l'on veut re-rendre visibles les lignes masquées par le filtre
?

[MacKay77]

Al_22
Le problème c'est que je ne connais pas les filtres que les utilisateurs vont créer, sinon ce serait trop simple !
Il faudrait pouvoir sauvegarder les filtres sans les connaitre.

unparia
Le problème c'est qu'entre la fonction de filtrage et celle de défiltrage, les utilisateurs peuvent être amenés à rajouter/supprimer des filtres.

Merci à vous deux

[Al__22]

Donc si tu adaptes le code que je t'ai filé au-dessus je pense que ça peux marcher, attends un peu je m'y penche

Je pense avoir un début de quelque chose

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
Sub Remetfiltre()
    Dim w As Worksheet
    Dim tabfiltre()
    Dim lignefiltre As String
    Dim col As Integer
 
    Set w = ActiveSheet
 
    With w.AutoFilter
        lignefiltre = .Range.Address
        With .Filters
            ReDim tabfiltre(1 To .Count, 1 To 3)
            For f = 1 To .Count
                With .Item(f)
                    If .On Then
                        tabfiltre(f, 1) = .Criteria1
                        If .Operator Then
                            tabfiltre(f, 2) = .Operator
                            tabfiltre(f, 3) = .Criteria2
                        End If
                    End If
                End With
            Next f
        End With
    End With
 
    w.AutoFilterMode = False
 
    ' Ton bout de code
 
    For col = 1 To UBound(tabfiltre(), 1)
        If Not IsEmpty(tabfiltre(col, 1)) Then
            If tabfiltre(col, 2) Then
                w.Range(lignefiltre).AutoFilter field:=col, _
                Criteria1:=tabfiltre(col, 1), _
                Operator:=tabfiltre(col, 2), _
                Criteria2:=tabfiltre(col, 3)
            Else
                w.Range(lignefiltre).AutoFilter field:=col, _
                Criteria1:=tabfiltre(col, 1)
            End If
        End If
    Next col
End Sub

[MacKay77]

Bon j'ai un peu bossé sur ton code et j'ai l'impression d'avoir réussi !
J'ai fait le test avec 2 filtres manuels en plus et ça a fonctionné.
Le code ci-dessous

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Private Sub CommandButton2_Click()
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    Dim w As Worksheet
    Dim tabfiltre()
    Dim lignefiltre As String
    Dim col As Integer
 
    Set w = ActiveSheet
 
    With w.AutoFilter
        lignefiltre = .Range.Address
        With .Filters
            ReDim tabfiltre(1 To .Count, 1 To 3)
            For f = 1 To .Count
                With .Item(f)
                    If .On Then
                        tabfiltre(f, 1) = .Criteria1
                        If .Operator Then
                            tabfiltre(f, 2) = .Operator
                            On Error GoTo ignorer
                            If Not IsNull(.Criteria2) Then
                                tabfiltre(f, 3) = .Criteria2
                            End If
ignorer:
                        End If
                    End If
                End With
            Next f
        End With
    End With
 
    w.AutoFilterMode = False
 
 
    Dim longueur_tab As Integer
    Dim compteur As Integer
    longueur_tab = Range("J" & Rows.Count).End(xlUp).Row
    For compteur = 8 To longueur_tab
        Rows(compteur).EntireRow.Hidden = False
    Next compteur
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
 
    For col = 1 To UBound(tabfiltre(), 1)
        If Not IsEmpty(tabfiltre(col, 1)) Then
            If tabfiltre(col, 2) Then
                    w.Range(lignefiltre).AutoFilter field:=col, _
                    Criteria1:=tabfiltre(col, 1), _
                    Operator:=tabfiltre(col, 2), _
                    Criteria2:=tabfiltre(col, 3)
            Else
                w.Range(lignefiltre).AutoFilter field:=col, _
                Criteria1:=tabfiltre(col, 1)
            End If
        End If
    Next col
 
 
End Sub

Merci bien !

[Al__22]

Tout le plaisir est pour moi