Discussion :

[froutloops62]

Bonjour à tous,

ma fonction VBA ne fonctionne pas toujours ou s'active à tort à l'enregistrement, modification du fichier.

Mon but est de savoir si un filtre est actif ou pas sur une colonne.

Voici le code (assez simple pourtant) situé dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Function filtreActif(titre As Range) As String
 
    Application.Volatile
    With titre.Parent.AutoFilter
        With .Filters(titre.Column - .Range.Column + 1)
            If .On Then
                filtreActif = "oui"
            Else
                filtreActif = ""
            End If
        End With
    End With
 
End Function

Info supplémentaire, j'utilise des segments pour les filtres.

Pourriez-vous m'aidez s'il vous plaît ?

Merci

[Franc]

Bonjour, ton code semble correct, mais pour résoudre le problème d'activation inattendue, tu peux essayer de désactiver le calcul automatique lors de l'exécution de la fonction. Parfois, le recalcul automatique des fonctions peut déclencher leur exécution à des moments inattendus.
Voici ta macro légèrement modifiée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function filtreActif(titre As Range) As String
    Application.Volatile
    Application.Calculation = xlCalculationManual ' Désactive le calcul automatique
    On Error Resume Next ' Ignore les erreurs au cas où le filtre n'est pas actif
    With titre.Parent.AutoFilter
        With .Filters(titre.Column - .Range.Column + 1)
            If .On Then
                filtreActif = "oui"
            Else
                filtreActif = ""
            End If
        End With
    End With
    On Error GoTo 0 ' Réactive la gestion normale des erreurs
    Application.Calculation = xlCalculationAutomatic ' Réactive le calcul automatique
End Function

[froutloops62]

Bonjour Franc,

Merci pour ta réponse et ton aide.

Après application de ta correction, malheureusement, toujours le même problème.

Je pense qu'il s'agit en effet d'un problème de recalcul.

Tout dépend le l'action en fait. Quand je travaille sur le tableau en lui même, je n'ai pas de problème car il y a un recalcul.

Mais si tout autre action (hors tableau), la fonction ne réagit pas à l'attendu.

Il faudrait que j'arrive à créer évènement recalcul du tableau quand je clique sur mon segment.

[Philippe Tulliez]

Bonjour,
Je n'ai pas le temps de me pencher sur ce problème mais il y a une instruction qui me semble curieuse With .Filters(titre.Column - .Range.Column + 1)
Lorsque l'on imbrique un With dans un With, cela implique que le deuxième With soit rattaché à l'objet ou à la propriété du premier ce qui semble ne pas être le cas.

[froutloops62]

Bonjour Philippe,

c'est lié à l'action derrière.

En fait, je fais appel à la fonction dans une cellule déportée (juste au dessus de la cellule qui contient le filtre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=filtreActif(B10)

mais pour que cela fonctionne, une cellule de mon tableau doit-être sélectionnée.

Si c'est une cellule hors tableau qui est sélectionnée, l'appel à la fonction ne se déclenche pas.

Il me faut une solution de contournement.

J'avais en tête un Range.Select au clic sur le segment mais j'ai l'impression que ce n'est pas possible.

[Philippe Tulliez]

Bonjour,
Comme vous avez évoqué les segments, cela signifie que vos tables sont des tableaux structurés donc des ListObject donc ce code fonctionnera mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function filtreActif(titre As Range) As String
  Application.Volatile
  Dim oList As ListObject
  Set oList = titre.ListObject
  If Not oList Is Nothing Then
    With oList.AutoFilter
      With .Filters(titre.Column - .Range.Column + 1)
        filtreActif = IIf(.On, "oui", "")
      End With
    End With
  End If
  Set oList = Nothing
End Function

J'ai remplacé également les lignes ci-dessous par la fonction Iff
' If .On Then
' filtreActif = "oui"
' Else
' filtreActif = ""
' End If