filtres

[dbtotal]

Bonjour
est-il possible de supprimer les filtres en fermant un classeur,
de telle sorte que lors de la prochaine ouverture de ce classeur, il n'y ai pas de filtres

si non, est-il possible de mettre en evidence la colonne filtrée
dans l'état actuel la coche bleue est à peine visible

merci de votre aide.

 

[JCGL]

Re : filtres

Bonjour à tous,

A placer dans le ThisWorkBook (adapte la ligne de filtre) :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1:F1").AutoFilter
End Sub

A+ à tous

 

[Chris401]

Re : filtres

Bonjour

Ce code réaffiche tout sans enlever les filtres :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Nom de ta feuille").ShowAllData
End Sub

Cordialement

 

[dbtotal]

Re : filtres

merci JCGL
mais je ne sait pas ou mettre cette ligne d'instruction, (il faut dire que je n'y connait pas grand chose...)
je suis en excel 2003

 

[JCGL]

Re : filtres

Bonjour à tous,

C'est ici :



Accessible par Alt F11 ou clique droit sur un onglet et 'Visualiser le code'

A+ à tous

 

[dbtotal]

Re : filtres

Merci JCGL, ça fonctionne sans protection:

Mais j'ai un problème, car ma feuille est protégée, et j'ai une erreur 1004

 

[JCGL]

Re : filtres

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveSheet.Unprotect
    Range("A1:F1").AutoFilter
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

A+ à tous

 

[dbtotal]

Re : filtres

JCGL
ça va pas,
en quitant, il demande le mot de passe
je crois que je vais laisser tomber,

 

[JCGL]

Re : filtres

Bonjour à tous,

Et bien donne lui le mot de passe !!!
Et dépose le ici pour modification du code.

A+ à tous

 

[dbtotal]

Re : filtres

Bonjour
le mot de passe est : "bonne journée"

 

[JCGL]

Re : filtres

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveSheet.Unprotect "bonne journée"
    Range("A1:F1").AutoFilter
    ActiveSheet.Protect "bonne journée"
End Sub

A+ à tous

 

[dbtotal]

Re : filtres

JCGL
cela fonctionne, en fermeture,
mais, car il y a un mais,
à l'ouverture du classeur, les utilisateurs ne peuvent accéder au bouton filtre automatique car la feuille est protégée.
les cases tri, & filtres automatique sont cochées dans la liste "protection feulle"
j'espère ne pas trop abuser
bonne journée.

 

[dbtotal]

Re : filtres

tu boude??

 

[dbtotal]

Re : filtres

cela fonctionne si des filtres sont mis en place, mais dans le cas ou le fichier est refermé sans avoir modifié, il apparait un code d'erreur