Filtre automatique dans une marcro

matthieu33

XLDnaute Occasionnel

• 7 Décembre 2007

• #2

Re : Filtre automatique dans une marcro

Bonjour Tumumu,

Aurais-tu un extrait de ton fichier à nous envoyer ?
Cela serait plus facile pour répondre à ta demande.

Merci

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 7 Décembre 2007

• #3

Re : Filtre automatique dans une marcro

Bonjour,

je pense que c'est ça que tu veux:

Code:

Sub Macro1()
Dim actif As Boolean
actif = Worksheets(2).AutoFilterMode
If actif Then Selection.AutoFilter
'ici le reste de ta macro
'......
'...........
Range("A3:N3").AutoFilter
End Sub

Bonne journée

Edit: salut Matthieu

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 7 Décembre 2007

• #4

Re : Filtre automatique dans une marcro

Bonjour
de cette façon ça doit fonctionner?

Code:

Sub filtrage()
Range("A3").AutoFilter
''""""ton code """"''
With Worksheets("Feuil1")
    If Not .AutoFilterMode Then .Range("A3").AutoFilter
End With
End Sub

premiere ligne si le filtre est en place on enleve ( normalement il y est )
grace à la ligne if not;;;; il controle si le filtre n'est pas en place et le met

 

Vote positif 0 Vote négatif

T

Tmumu

Guest

• 12 Décembre 2007

• #5

Re : Filtre automatique dans une marcro

Un tout gand merci à vous trois.

Tmumu

 

Dernière modification par un modérateur: 12 Décembre 2007

Vote positif 0 Vote négatif