La ceinture et les bretelles :
Sub Test_Filtre()
If Not ActiveSheet.AutoFilter Is Nothing Then MsgBox 'Un filtre a été créé sur la feuille'
If ActiveSheet.FilterMode Then
MsgBox 'Il y a des données filtrées '
Else: MsgBox 'Il n'y a pas de données filtrées'
End If
If ActiveSheet.AutoFilter Is Nothing Then MsgBox 'Aucun filtre présent'
MsgBox 'Il y a ' & ActiveSheet.AutoFilter.Filters.Count & ' Colonnes sur lesquelles il y a un Filtre'
For i = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters(i).On Then
MsgBox 'Le filtre est situé en position ' & i
End If
Next i
End Sub
Incroyable de voir des réponses aussi récentes, ça fait 1 mois que je me tape des forums de 2006 à 2015, j'avais commencé à croire que plus personne ne les utilisait !