RAZ des filtres

[ychc]

Bonsoir à tous,

Sur un fichier partagé souvent ouvert, des filtres sont en place et très utiles.

Le problème, c'est que parfois certains oublie de remettre " a zéro" les filtres.

Je cherche et je ne parviens pas a essayé de remettre à zéro ces filtres lors de l'enregistrement du fichier, ou alors automatiquement toutes les X secondes.
Si quelqu"un a déja fait, je suis à l'écoute de toutes vos idées.

Merci et bonne soirée.

 

[Roland_M]

Re : RAZ des filtres

bonsoir,


mettre ceci dans le thisworkbook

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

 

[ychc]

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.

 

[Roland_M]

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

 

[ychc]

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éé.

 

[JCGL]

Re : RAZ des filtres

Bonjour à tous,

Peux-tu essayer avec :

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

 

[ychc]

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..

 

[ychc]

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é

 

[Roland_M]

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 !

 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