Filtres toujours présent

[WDAndCo]

Bonjour le Forum

Voici mon nouveau souci, lors du passage d'une feuille à l'autre.
Un coup sur deux j'ai les filtres en place !
Comment faire pour les avoir à tout les coups ?
Lors de l'activation de la feuille les filtres doivent être libérés.

Voir le fichier joint.

D'avance merci

 

[ChTi160]

Re : Filtres toujours présent

Bonjour Dominique
Bonjour
le fil,le Forum

voila ce que j'ai mis et qui semble répondre a la demande.

Private Sub Worksheet_Activate()
With Worksheets("Points à Amortir")
     If .AutoFilter Is Nothing Then .Range("A2:J2").AutoFilter
         .Columns("A:H").Select
    ActiveWindow.Zoom = True
    .Range("I1").Select
End With

Bonne journée
Amicalement
Jean Marie

 

[zeltron24]

Re : Filtres toujours présent

Bonjour ChTi160 WDAndCo

En passant par un tableau peut être?

 

[WDAndCo]

Re : Filtres toujours présent

Bonjour et merci Jean Marie, toujours à fond ! Ti Zot !

 

[zeltron24]

Re : Filtres toujours présent

Re,

Ta n'in vu min mechage!!!!!

 

[WDAndCo]

Re : Filtres toujours présent

Bonjour le Forum et Ter Tous,

Oui, je l'ai vu, mais ici je ne peut pas ouvrir les .xlsm merci quand même une fois !

Jean.Marie : Je l'ai mis ainsi car dans l'autre sens il les enlevent, et seul lors de l'ouverture de la page les filtres restesen place. Encore merci

Private Sub Worksheet_Activate()

 Range("A2:J2").Select
    Selection.AutoFilter
     Columns("A:H").Select
    ActiveWindow.Zoom = True
    Range("I1").Select

With Worksheets("Points à Amortir")
     If .AutoFilter Is Nothing Then .Range("A2:J2").AutoFilter
         .Columns("A:H").Select
    ActiveWindow.Zoom = True
    .Range("I1").Select
End With

If Sheets(5).Name = Range("K1").Value Then Exit Sub...................et la suite.........