Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jpmonnier
Bonjour, teste ceci pour feuil1
Sub CTRL_Filtres() If Worksheets("feuil1").AutoFilterMode Then F = "Filtres activés" Else F = "Filtres non activés" End If MsgBox F End Sub -- Cordialement
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de faire tester à une macro la présence d'un filtre auto sur une feuille ???
-- Merci pour vos réponses.
Bonjour,
teste ceci pour feuil1
Sub CTRL_Filtres()
If Worksheets("feuil1").AutoFilterMode Then
F = "Filtres activés"
Else
F = "Filtres non activés"
End If
MsgBox F
End Sub
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de
news:0BE797AA-6CE3-4848-8EF7-95BE959F24EA@microsoft.com...
Bonjour,
Est-il possible de faire tester à une macro la présence d'un filtre auto
sur
une feuille ???
Sub CTRL_Filtres() If Worksheets("feuil1").AutoFilterMode Then F = "Filtres activés" Else F = "Filtres non activés" End If MsgBox F End Sub -- Cordialement
"Yvan" a écrit dans le message de news:
Bonjour,
Est-il possible de faire tester à une macro la présence d'un filtre auto sur une feuille ???
-- Merci pour vos réponses.
Yvan
Nickel, merci. -- Merci pour vos réponses.
"Jpmonnier" a écrit :
Bonjour, teste ceci pour feuil1
Sub CTRL_Filtres() If Worksheets("feuil1").AutoFilterMode Then F = "Filtres activés" Else F = "Filtres non activés" End If MsgBox F End Sub -- Cordialement
"Yvan" a écrit dans le message de news: > Bonjour, > > Est-il possible de faire tester à une macro la présence d'un filtre auto > sur > une feuille ??? > > -- > Merci pour vos réponses.
Nickel, merci.
--
Merci pour vos réponses.
"Jpmonnier" a écrit :
Bonjour,
teste ceci pour feuil1
Sub CTRL_Filtres()
If Worksheets("feuil1").AutoFilterMode Then
F = "Filtres activés"
Else
F = "Filtres non activés"
End If
MsgBox F
End Sub
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de
news:0BE797AA-6CE3-4848-8EF7-95BE959F24EA@microsoft.com...
> Bonjour,
>
> Est-il possible de faire tester à une macro la présence d'un filtre auto
> sur
> une feuille ???
>
> --
> Merci pour vos réponses.
Sub CTRL_Filtres() If Worksheets("feuil1").AutoFilterMode Then F = "Filtres activés" Else F = "Filtres non activés" End If MsgBox F End Sub -- Cordialement
"Yvan" a écrit dans le message de news: > Bonjour, > > Est-il possible de faire tester à une macro la présence d'un filtre auto > sur > une feuille ??? > > -- > Merci pour vos réponses.