XL 2010 VBA : réinitialiser des filtres sans les oter une fois sur deux

[BenHarber]

Bonjour le Forum,
Je rencontre un petit souci de codage VBA : peut-être que l’un d’entre vous à la solution ?

Soit un tableau (listobject) sur lequel j’utilise des filtres. J’ai fait une macro qui trie les données du tableau ; or, si les données sont filtrées, le tri ne se fait pas. Donc, avant de lancer le tri, je me suis dit qu’il fallait réinitialiser les filtres (de façon à voir tous les enregistrements du tableau).

J’ai trouvé ce code là qui affiche bien tous les enregistrements

If Not Feuil1.AutoFilterMode Then
Feuil1.Range(“Montablo”).AutoFilter
End If

L’ennui , c’est qu’une fois sur deux il enlève les filtres (et « l’autre fois sur deux », il les remet !)
Quelqu’un saurait-il comment réinitialiser les filtres SANS LES ENLEVER UNE FOIS SUR DEUX ?
(Ou peut-être qu’il existe un moyen de trier les données du tableau, même filtrées ? )

Merci d’avance pour vos idées et suggestions toujours utiles !

BH

 

[pierrejean]

Bonjour BenHarber

a tester:

if Feuil1.AutoFilterMode=False then Feuil1.Range(“Montablo”).AutoFilter

 

[BenHarber]

Bonjour pierrejean,
Tellement simple que je n'y avait pas pensé : ça fonctionne !
Merci beaucoup pour ta réponse rapide.

BH