OVH Cloud OVH Cloud

filtre automatique

2 réponses
Avatar
daniel M.
bonjour,
Quand je fais un filtre automatique dans une feuille et que j'oublie de
l'enlever çà me fout le bazar dans la feuille lorqu'une macro veut apporter
des modifs dans cette page.
je voulais faire une macro qui enleve ce filtre avant toute autre
intervention dans la feuille, le problême c'est que : mettre le filtre ou
l'enlever me donne le même texte dans la macro: Selection.AutoFilter.
si bien que si il n'y avait pas de filtre, du coup y en a un !.
existe t'il un autre script qui ne ferait qu'enlever le filtre automatique??
merci d'avance
daniel

2 réponses

Avatar
MiB
Bonjour,

La commande : Selection.AutoFilter

agit comme une bascule flip-flop.

À chaque appel il modifie l'état
du fitre automatique.

Je vous suggére de créer une variable
boolean qui suivra l'état du filtre.

Absent ou Présent ( Faux ou Vrai )

Michel
-----Message d'origine-----
bonjour,
Quand je fais un filtre automatique dans une feuille et
que j'oublie de

l'enlever çà me fout le bazar dans la feuille lorqu'une
macro veut apporter

des modifs dans cette page.
je voulais faire une macro qui enleve ce filtre avant
toute autre

intervention dans la feuille, le problême c'est que :
mettre le filtre ou

l'enlever me donne le même texte dans la macro:
Selection.AutoFilter.

si bien que si il n'y avait pas de filtre, du coup y en a
un !.

existe t'il un autre script qui ne ferait qu'enlever le
filtre automatique??

merci d'avance
daniel


.



Avatar
AV
le [A1] qui est dans le script veut dire cellule A1?


Absolument : c'est un raccourci pour Range("A1") (de la feuille active lorsque
tu lances la macro)

AV

daniel
"AV" a écrit dans le message de
news:
Avant de lancer ta macro tu peux tester la présence d'un filtre et le
supprimer

s'il y a lieu :

With ActiveSheet
If Not .AutoFilter Is Nothing Then .[A1].AutoFilter
End With

Le pus logique serait quand même de le supprimer en fin de la macro qui le
met

en place !

AV