Bonjour,
Comme beaucoup qui ouvre une discussion j'ai besoin d'aide !
et je remercie ceux qui m’aideront.

J'ai un classeur qui contient plusieurs feuilles.
Sur chacune des feuilles, j'utilise la fonction Worksheet_Calculate() pour détecter l'activation d'un filtre sur une colonne.
Si un filtre est activé alors on affiche un bouton "afficher tout" (qui a pour fonction si on clique de supprimé tout les filtres)
Le code fonctionne sur toute les feuilles sauf une (la dernière) !

Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Calculate()
If FilterMode Then '= True Then          'Test si filtre est activé
    Afficher_tout.Visible = True   'Si oui
    Range("d4").Select 'creer pour test
    Selection = "actif"   
    Else
    Afficher_tout.Visible = False
    Range("d4").Select 'creer pour test
    Selection = "non actif"
    End If
End Sub
Le problème vient du Worksheet_Calculate()
J'ai crée un code qui vérifie FilterMode et il fonctionne bien

Quelqu'un a-t-il une idée pourquoi le calculate ne fonctionne pas ?

Merci d'avance pour vos lumières