[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:)
 

genevieve78

XLDnaute Impliqué
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:
 

Fichiers joints

Dernière édition:

genevieve78

XLDnaute Impliqué
Re : VBA : Suppression des filtres

Heureuse que tu aies trouvé ton bonheur, Villete :eek:

N'oublie pas d'étider le titre de ton premier poste et inscrire Résolu au début.

Bonne journée à tous :D
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas