Discussion :

[jfk15]

Bonjour, j'ai cherché sur internet comment enlever tous les filtres d'un tableau mais je n'ai pas trouvé une solution qui fonctionne sur mon fichier.

j'utilise cela pour l'instant et ça marche très bien mais c'est long.... long.... long....
Qqun aurait une solution pour écourter l'attente?
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Bouton10_Cliquer()
Feuil1.unprotect Password:="toto"
Feuil1.ListObjects("Tableau1").Range.AutoFilter Field:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67)
Feuil1.protect Password:="toto"
End Sub

[Marc-L]

Bonjour !

If Feuil1.FilterMode Then Feuil1.ShowAllData …

[jfk15]

Bonjour et merci pour ta réponse.
J'avais vu showalldata sur les forums mais cela ne marchait pas.
J'ai essayé ta proposition et cela ne plante pas mais n'enlève pas les filtres du tableau.

Pardon en fait si ça plante sur Feuil2.ShowAllData

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Feuil2.FilterMode Then Feuil2.ShowAllData

[Marc-L]

Alors ce ne sont pas des filtres de feuille de calculs mais ceux intégrés à un objet liste !

Et dans ce cas là, tu as la réponse sous le coude à portée de clic en consultant l'aide VBA des propriétés de cet objet ‼

ShowAutofilter …

[jfk15]

Oui en effet du tableau 1 comme c'est indiqué dans mon premier post.
Mais j'arrive pas à l'écrire. J'ai essayé pleins de trucs mais plouf.....

ah si quand même

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil2.ListObjects("Tableau1").AutoFilter.ShowAllData

[78chris]

Re

C'est sûr qu'en postant un exemple avec feuil1 pour appliquer sur feuil2, il faut adapter...

[78chris]

Bonjour

Pour les tableaux il y a des subtilités sur les filtres d'autant que l'on peut avoir plus d'un tableau dans une même feuille. Des pistes ici http://www.contextures.com/excelautofilterlist.html d'où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Lst As ListObject
 
Set Lst = ActiveWorkbook.Worksheets("Feuil1").ListObjects("Tableau1")
  If Lst.AutoFilter.FilterMode Then
    Lst.AutoFilter.ShowAllData
  End If