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