VBA Unfilter gamme

Je suis en utilisant ce code: 

Sheets("Sheet1").AutofilterMode = False

à unfilter les données dans une feuille Excel à l'aide de VBA (le point est pour effacer tous les filtres). Cela ne semble pas toujours fonctionner, est-il un meilleur moyen?

Merci!

Au cas où il permet, cette table est liée à partir de Sql Server (Données --> à Partir d'autres sources --> à Partir de Sql Server...) et il a une conception de couleur mise en page (tableau spécifique).

  • J'ai trouvé cela fonctionne: ActiveSheet.ListObjects("Table_Sam_table1").Range.AutoFilter Field :=2 mais j'en ai besoin pour être général et de travail pour tous les champs, de ne pas effacer le deuxième champ filtre, mais tous. Aussi, la solution est indiqué dans la question initiale probablement ne fonctionne que pour un texte isolé, ne s'applique pas aux objets (tables qui ont des noms de table dans leurs propriétés, etc).
InformationsquelleAutor Sam | 2013-01-20
  1. 15

    Utilisation Worksheets("Sheet1").ShowAllData à la place. Voir http://msdn.microsoft.com/en-us/library/office/bb178108%28v=office.12%29.aspx.

    InformationsquelleAutor A. Webb
  2. 1

    La ShowAllData ne fonctionnera que si votre fiche a un filtre, sinon il va se casser. J'ai trouvé que vous pouvez créer une fonction à partir de ce avec On Error Resume Next et il devrait fonctionner dans tous les cas:

    Sub ShowAllData()
On Error Resume Next
Worksheets("Sheet1").ShowAllData

End Sub

    Alors la fonction d'appel à partir de votre principal sous:

    Sub Main()

ShowAllData

End Sub
    InformationsquelleAutor user9051866