filtres

JCGL

XLDnaute Barbatruc

• 20 Juin 2010

• #2

Re : filtres

Bonjour à tous,

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

Code:

Option Explicit

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

A+ à tous

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 20 Juin 2010

• #3

Re : filtres

Bonjour

Ce code réaffiche tout sans enlever les filtres :

Code:

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

Cordialement

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 20 Juin 2010

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juin 2010

• #5

Re : filtres

Bonjour à tous,

C'est ici :



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

A+ à tous

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 20 Juin 2010

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juin 2010

• #7

Re : filtres

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 20 Juin 2010

• #8

Re : filtres

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 20 Juin 2010

• #9

Re : filtres

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 21 Juin 2010

• #10

Re : filtres

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Juin 2010

• #11

Re : filtres

Bonjour à tous,

Peux-tu essayer avec :

Code:

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

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 21 Juin 2010

• #12

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.

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 24 Juin 2010

• #13

Re : filtres

tu boude??

 

Vote positif 0 Vote négatif

D

dbtotal

Guest

• 24 Juin 2010

• #14

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

 

Vote positif 0 Vote négatif