Désactivé un fil

[Franck059]

Bonjour le forum,

J'ai fait une macro qui importe un fichier dans une feuille.
Problème : Quand un filtre est activé avant l'import ça me met le souk.

J'ai rajouté dans ma macro la déactivation préalable de tout filtre. Ca marche. Mais bien sûr ça plante si aucun filtre n'était activé avant de lancer la macro.

Y a-t-il une solution ?

Merci infiniment d'avance si qlq qu'un peut m'aider

Franck

 

[Catrice]

Re : Désactivé un fil

Bonjour,

Si j'ai tout compris :

Sub Test()
If ActiveSheet.AutoFilterMode Then Cells.AutoFilter
End Sub

 

[Franck059]

Re : Désactivé un fil

C'est exactement ça !

Merci infiniment

Franck

 

[Franck059]

Re : Désactivé un fil

J'aurai également besoin de la fonction inverse :
C'est à dire si aucun filtre n'est activé, alors activer un filtre.

Encore merci

Franck

 

[Catrice]

Re : Désactivé un fil

Re,

Sub test2()
If Not ActiveSheet.AutoFilterMode Then Range("A1").AutoFilter
End Sub

Où A1 est la premiere cellule où doit etre appliqué le filtre.

 

[Franck059]

Re : Désactivé un fil

Génial !

Merci bcp pour aide...des heures de gagnées !

Franck