Microsoft 365 Nombre de colonnes filtrées

[Eric Dé]

Bonjour,

Sur une feuille de calcul comprenant de nombreuses colonnes (155), je souhaiterais connaître le nombre de colonnes auxquelles un filtre est appliqué.
La cerise sur le gâteau serait d'afficher les lettres des colonnes concernées.
Est-ce réalisable ?

Merci d'avance pour votre réponse.
Cordialement.
Eric

 

[JHA]

Bonjour à tous,

Je te joins un fichier de feu Jacques Boisgontier sur le sujet.

JHA

 

[vgendron]

Hello JHA
j'étais justement en train de chercher dans mes archives cette fameuse fonction "ChampActif()" utilisée dans la MFC

 

[Eric Dé]

Bonjour JHA,
Merveilleuse fonction !
Merci beaucoup.

 

[job75]

Bonjour Eric Dé, JHA, vgendron,

Vous pouvez exécuter cette macro :

Sub Colonnes_filtrees()
If ActiveSheet.AutoFilter Is Nothing Then Exit Sub
Dim i%, n%, mes$
For i = 1 To ActiveSheet.AutoFilter.Filters.Count
    If ActiveSheet.AutoFilter.Filters(i).On Then
        n = n + 1
        mes = mes & "-" & Split(ActiveSheet.AutoFilter.Range.Columns(i).EntireColumn.Address(0, 0), ":")(0)
    End If
Next
If n Then MsgBox n & " colonne(s) filtrée(s) => " & Mid(mes, 2)
End Sub

A+