[Résolu]VBA : Suppression des filtres

villette54

XLDnaute Junior
Bonjour à tous,

J'aimerais créer une macro qui permet de supprimer tout les filtres qui ont pu être appliquer sur le fichier soir à la fermeture de celui-ci, soit à l'ouverture, afin d'être sur d'ouvrir le fichier sans aucun filtre actif.

Je ne sais pas si ça à une importance, mais mes filtres sont sur la ligne 3 et vont de la colonne B à la colonne AH.

Merci d'avance :)
 
Dernière édition:

david84

XLDnaute Barbatruc
Re : VBA : Suppression des filtres

Bonjour,
code à placer dans un module :
Code:
Sub OterFiltres()
Dim Classeur As Workbook, i As Byte
Set Classeur = ThisWorkbook
For i = 1 To Classeur.Sheets.Count
    Classeur.Sheets(i).AutoFilterMode = False
Next i
End Sub

et dans le ThisWorkbook :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call OterFiltres
End Sub

Private Sub Workbook_Open()
Call OterFiltres
End Sub
A tester de ton côté (non testé).
A+
 

Pierrot93

XLDnaute Barbatruc
Re : VBA : Suppression des filtres

Bonjour,

essaye peut être ceci, se déclenche à l'ouverture du classeur, à placer dans le module "thisworkbook" :
Code:
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.AutoFilterMode = False
Next ws
End Sub

bonne soirée
@+

Edition : bonjour David:)
 

Gen Rose

XLDnaute Impliqué
Supporter XLD
Re : VBA : Suppression des filtres

Si quelqu'un passe par ici, on va certainement rire de ma solution car trop simpliste mais, elle fonctionne.

Voir en p.j. un essai VBA; la macro s'excécute à l'ouverture du fichier donc pour le tester, ajoute des filtres, enregistre-le et ferme-le. Ensuite à l'ouverture, tu verra les filtres n'y seront plus :)

Edit; Bonjour David, Pierrot :eek:
 

Pièces jointes

  • filtres.xls
    22 KB · Affichages: 207
  • filtres.xls
    22 KB · Affichages: 189
  • filtres.xls
    22 KB · Affichages: 193
Dernière modification par un modérateur:

Discussions similaires