Discussion :

[tibout34]

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

[parmi]

Bonjour,

Y a-t-il des formules dans cette feuille qui ne fonctionne pas ?
Autrement, il n'y aura pas d'événement Calculate, je pense...

Edit: et Dans Thisworkbook, il y aussi Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Ça évite de refaire les macros dans toutes les feuilles...

[tibout34]

Re,
Il n'y a pas de formule sur cette feuille (c'est pas la seule et sur l'autre ça fonctionne bien).
La seule chose qu'il y a de "calculé" c'est la mise en place d'un filtre, j'ai une cellule que tu tapes ce que tu veux et ça filtre le tableau

Edit: et Dans Thisworkbook, il y aussi Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Ça évite de refaire les macros dans toutes les feuilles...

euh je débute en vba, en gros ca veux dire quoi ?

[parmi]

C'est-à-dire que l'événement Worksheet_Calculate() que tu trouves dans le code des feuilles se retrouve aussi dans le module ThisWorkbook sous le nom Workbook_SheetCalculate(ByVal Sh As Object)
Tu peux alors utiliser le paramètre Sh pour déterminer la Feuille (Worksheet) et tu n'as pas besoin de mettre de code pour cet événement dans chaque feuille.

Le module ThisWorkbook se situe sous les noms de feuilles dans l'IDE VBA.

PS: J'ai fait le test sans formule et l'événement Calculate n'est pas appelé. Par contre, si j'y mets une formule, il l'est (?)

[tibout34]

ok pour le

module ThisWorkbook sous le nom Workbook_SheetCalculate(ByVal Sh As Object)

mais je préfère le faire feuille par feuille pour l'instant

et je pense que le Worksheet_Calculate() n'est pas détecté.
existe-il un paramétré de feuille à vérifier ?