Fonction insertion de Tableau et propriété AutoFilterMode

La propriété AutoFilterMode renvoie l'état du filtre automatique dans une feuille. Si le filtre automatique est affiché, cette propriété renvoie True, sinon False.

Dans le système d'aide je trouve ce bout de code que j'ai inséré dans une procédure publique de Test dans un module :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub test() Dim isOn As String If Worksheets(ActiveSheet.Name).AutoFilterMode Then isOn = "On" Else isOn = "Off" End If MsgBox "AutoFilterMode is " & isOn End Sub

---

Cette procédure fonctionne dans une liste dans laquelle on place un filtre automatique.

Le problème survient si j'insère un Tableau dans cette liste, nouvelle fonctionnalité à partir d'Excel 2007. Pour ma part je le teste avec 2010. La propriété devient inopérante, elle renvoit toujours "False" et donc "Off" dans cette procédure, quelle que soit la position du filtre automatique.:cry:

Bonjour,

Ce que je comprend c'est que lorsqu'on insere un tableau, on insere 1 ListObject.
Quand on filtre sur ce tableau, on ne filtre pas sur la feuille ---> propriete AutoFilter mais sur le ListObject qui a 1 propriete Autofilter.

La Sub devient :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub test() Dim isOn As String If ActiveSheet.ListObjects(1).AutoFilter.FilterMode Then isOn = "On" Else isOn = "Off" End If MsgBox "FilterMode is " & isOn End Sub

---

Cordialement

ctac

La solution proposée par Ctac est donc :

Code:

---

ActiveSheet.ListObjects(1).AutoFilter.FilterMode

---

Malheureusement cette solution ne résout pas mon problème. Le code est accepté, mais il réagit comme le code initial.

J'ai vérifié dans la fenêtre d'exécution que ce code identifiait bien mon tableau par le code :

Code:

---

ActiveSheet.ListObjects(1).Name

---

En tous cas merci pour la suggestion.

Bonsoir.
Pour un listobject il faut lire la propriété:

Code:

---

ShowAutoFilter

---

Bravo NVCfrm ! La bonne propriété est bien ShowAutoFilter. j'ai pu modifier mon code qui ne fonctionnait plus après avoir inséré un tableau dans ma liste.

Code:

---

If ActiveSheet.ListObjects(1).ShowAutoFilter Then

---

remplace

Code:

---

If ActiveSheet.AutoFilterMode Then

---

Le problème est donc résolu.