Discussion :

[MartySalade2]

Bonjour je n'arrive pas à retirer mes filtres de ma feuil "data" à l'ouverture de mon fichier excel. Auriez vous une idée pour m'aider

Je souhaite désactiver les filtres non les supprimer

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Open()
 
 Worksheets("data").AutoFilterMode = False
 
End Sub

Merci davance. Marty

[marot_r]

Bonjour.

Voici le code que j'utilise pour gérer mes filtres :

Code :

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

1
2
3
4
 
Option Explicit 'Rend la déclaration des variables obligatoire
Option Compare Text 'Fait en sorte que VBA ne dsitingue pas les majuscules des minuscules quand il fait des comparaisons
Option Private Module 'Optionel - Rend les routines de ce module invisibles à l'utilisateur

Code :

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

1
2
3
4
5
6
Public Sub RemoveFilterSelection(prmWorksheet As Worksheet)
    'La gestion d'erreur sert quand il n'y a pas de filtre définir
    On Error Resume Next
    prmWorksheet.ShowAllData
    On Error GoTo 0
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub RemoveAllFilterSelectionFromUnprotectedSheet(prmWorkbook As Workbook)
    'Supprime les sélection par filtre dans toutes les pages non protégées.
 
    Dim WS As Worksheet: For Each WS In prmWorkbook.Worksheets
 
        If WS.ProtectContents = False Or WS.Protection.AllowFiltering = True Then
            Call RemoveFilterSelection(WS)
        End If
 
    Next WS
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Test_DeleteFilter()
    Call DeleteFilter(ActiveSheet)
End Sub
 
Public Sub DeleteFilter(prmWorksheet As Worksheet)
 
    If prmWorksheet.AutoFilterMode Then
        prmWorksheet.Cells.AutoFilter
    End If
 
End Sub

J'ai mis tout cela dans un module que j'importe dans les classeurs où j'en ai besoin.

A+

[Menhir]

Je souhaite désactiver les filtres non les supprimer

A ma connaissance, ce n'est pas possible.

La seule méthode que je connaisse qui s'en rapproche est de sauvegarder les paramètres du filtre dans une variable de type Autofilter avant de le supprimer et d'utiliser cette variable pour replacer le filtre.

[MartySalade2]

A ma connaissance, ce n'est pas possible.

La seule méthode que je connaisse qui s'en rapproche est de sauvegarder les paramètres du filtre dans une variable de type Autofilter avant de le supprimer et d'utiliser cette variable pour replacer le filtre.

As tu une idée de comment faire ça ? Je débute en VBA

[Patrice740]

Bonjour,

Comme l'a dit Menhir () il n'est pas possible de désactiver le filtre : il ne peut pas y avoir plusieurs filtres sur une même feuille.

Par contre il est possible de supprimer le filtrage en cours, sans supprimer le filtre avec .ShowAllData.

Pour ma part, je ne me contente pas de supprimer le filtrage (afficher toutes les données), je préfère aussi supprimer le filtre et le remettre à la bonne place car un utilisateur a pu le placer ailleurs sur la feuille.

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
Option Explicit
 
Sub Test()
  Call SupprimerFiltrage(ActiveSheet, "A4")
End Sub
 
Public Sub SupprimerFiltrage(wsh As Worksheet, adrDebutTableau As String)
' Supprime le filtre en cours sur la feuille et remet un filtre sur les données ciblées
  With wsh
    ' Supprimer le filtre actuel
    If Not .AutoFilter Is Nothing Then
      If .FilterMode Then .ShowAllData
      .AutoFilter.Range.AutoFilter
    End If
    ' Remettre le filtre automatique
    .Range(adrDebutTableau).CurrentRegion.AutoFilter
  End With
End Sub

[78chris]

Bonjour à tous

... il ne peut pas y avoir plusieurs filtres sur une même feuille

Heu si, avec plusieurs tableaux structurés sur une même feuille on peut avoir un filtre par tableau que l'on peut gérer séparément...
ShowAllData est inutile si on le fait suivre de AutoFilter.Range.AutoFilter