RAZ des filtres

Roland_M

XLDnaute Barbatruc

• 27 Mars 2014

• #2

Re : RAZ des filtres

bonsoir,


mettre ceci dans le thisworkbook

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Feuil As Worksheet
For Each Feuil In Worksheets
Feuil.AutoFilterMode = False
Next
End Sub

 

Vote positif 0 Vote négatif

Y

ychc

XLDnaute Occasionnel

• 27 Mars 2014

• #3

Re : RAZ des filtres

Merci Roland M pour la réponse et la rapidité,

Cela fonctionne, mais serait -il possible de laisser en place les filtres, pour ne pas avoir a les remettre?

Merci d'avance.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 27 Mars 2014

• #4

Re : RAZ des filtres

bonsoir,


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Feuil As Worksheet
On Error Resume Next
For Each Feuil In Worksheets
Feuil.ShowAllData
Next
End Sub

 

Vote positif 0 Vote négatif

Y

ychc

XLDnaute Occasionnel

• 28 Mars 2014

• #5

Re : RAZ des filtres

Bonsoir à tous,
Roland, cela fonctionne merci.
Mais lorsque je protège ma feuille cela n'a pas l'air de vouloir marcher.
Est ce possible ou pas?
Je protège ma feuille par "protéger feuille avec mot de passe".
Merci d'avance et bonne soiréé.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 28 Mars 2014

• #6

Re : RAZ des filtres

Bonjour à tous,

Peux-tu essayer avec :

Code:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Feuil As Worksheet
ActiveSheet.Protect UserInterfaceOnly:=True, AllowFiltering:=True
For Each Feuil In Worksheets
Feuil.ShowAllData
Next
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

Y

ychc

XLDnaute Occasionnel

• 28 Mars 2014

• #7

Re : RAZ des filtres

Merci JCGL,
J'essaye et je vous redis.
Merci pour l'intérêt...

Bonne soirée et bon week end..

 

Vote positif 0 Vote négatif

Y

ychc

XLDnaute Occasionnel

• 28 Mars 2014

• #8

Re : RAZ des filtres

Après essais,

Les filtres sont remis à zéro, mais j'ai une erreur d'éxé '1004'
'La méthode'showAllData' de l'objet'_Worksheet' a échoué

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 28 Mars 2014

• #9

Re : RAZ des filtres

bonsoir,

il manque un "on error resume next !"
c'est dû à ShowAllData si les filtres c'est déjà remis à "zéro"
reprend ceci !

Code:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim Feuil As Worksheet
 on error resume next
 ActiveSheet.Protect UserInterfaceOnly:=True, AllowFiltering:=True
 For Each Feuil In Worksheets: Feuil.ShowAllData: Next
 End Sub

 

Dernière édition: 28 Mars 2014

Vote positif 0 Vote négatif