[Résolu]VBA : Suppression des filtres

D

david84

XLDnaute Barbatruc

• 26 Mars 2013

• #2

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Mars 2013

• #3

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🙂

 

Vote positif 0 Vote négatif

Gen Rose

XLDnaute Impliqué

Supporter XLD

• 26 Mars 2013

• #4

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 😱

 

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: 26 Mars 2013

Vote positif 0 Vote négatif

V

villette54

Guest

• 27 Mars 2013

• #5

Re : VBA : Suppression des filtres

Je vous remercie tous. Ça fonctionne

Bonne journée

 

Vote positif 0 Vote négatif

Gen Rose

XLDnaute Impliqué

Supporter XLD

• 27 Mars 2013

• #6

Re : VBA : Suppression des filtres

Heureuse que tu aies trouvé ton bonheur, Villete 😱

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

Bonne journée à tous 😀

 

Vote positif 0 Vote négatif