Filtre Automatique toujors et encore

Bonjour JP,

Je n'ai seulement transformé en fonction... ce que tu semblais
avoir accepté comme solution dans le fil dans les messages précédents.


Mais si tu désires que la fonction te retourne vrai seulement lorsqu'un
filtre est application dans la feuille, essaie ceci comme fonction :

'--------------------------
Function BtFiltre() As Boolean
Application.Volatile
If Worksheets(Range("A1").Parent.Name).FilterMode Then
BtFiltre = True
End If
End Function
'--------------------------


Salutations!



"JP" <JP@discussions.microsoft.com> a écrit dans le message de news: 9F477D86-7569-4016-AEF3-57311FF62E60@microsoft.com...
Ma question est la suivante
Si je dit "filtre donnée affiché tout " alors dans la cellule A1 úux
et si je filtre alors dans la cellule A1 = Vrai

parceque ta solution me dit "vrai" des que 'donnée filtre" est activé

Salutations
JP

C'est quoi ta question... je ne saisis pas !


Salutations!



"JP" <JP@discussions.microsoft.com> a écrit dans le message de news: 942041EB-735C-43CA-AD28-EBBC5AB8E7E1@microsoft.com...
bonjour,

merci c'est presque ça en fait le filtre est toujours présent
ce que je voudrais savoir c'est quand j'affiche tout úux et si je filtre
=vrai

je sait que je suis exigent

Cordialement
JP

Bonjour JP,


Copie ceci dans un module standard :

Function BtFiltre() As Boolean
Application.Volatile
If Worksheets(Range("A1").Parent.Name).AutoFilterMode Then
BtFiltre = True
End If
End Function

et dans une cellule de ta feuille, tu inscris : = BtFiltre()
la fonction te renvoie vrai ou faux selon que le filtre est présent ou non.


Salutations!




"JP" <JP@discussions.microsoft.com> a écrit dans le message de news: 44E7B683-1E93-4BE8-BE95-ACF4EF6251A6@microsoft.com...
Merci ca marche
mais n'existe il pas une formule equivalante ce qui me simplifirait la tache

merci encore

JP

Ca dépent de la feuille sur laquelle tu travaillles.

Essaie:

'-----------------------------------------
if ActiveSheet.AutoFilterMode then
(ton code si le mode filtre automatique est actif)
else
(ton code si le mode filtre automatique est inactif
endif
'-----------------------------------

"JP" <JP@discussions.microsoft.com> a écrit dans le message de
news:59DBD4E5-1112-4CC4-B28C-83069290F401@microsoft.com...

Bonjour,

merci mais comment mettre cela dans une formule ou dans une macro, car je
suis un peut nul en terme de macro
Cordialement
JP

Propriété AutoFilterMode de l'objet Worksheet (Booléen)

Cordialement,
--
AP

"JP" <JP@discussions.microsoft.com> a écrit dans le message de
news:8003E45D-CF9C-4B48-A0A6-8909295DBA70@microsoft.com...

Bonjour

Merci encore pour ceux qui mon répondu hier,

mais j'ai une autre question

Existe il un moyen de teste si le filtre automatique est activé ou non
?

Cordialement

JP