Macro supprimer les filtres

Fermé

greg - 6 juil. 2010 à 10:46
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 7 juil. 2010 à 03:39

Bonjour,

Je teste cette macro que j'ai trouvé sur ce site, mais est-ce que quelqu'un pourrait me l'écrire pour l'ensemble des feuil d'un fichier excel 2007.
Et pour une feuil par exemple feuil2. (Cad en mettant le bouton de la macro sur la feuil1 pour RAZ les filtres de la feuil2.)

Sub ShowAllRecords()
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub

Merci d'avance.

A voir également:

Macro supprimer les filtres
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Supprimer les cookies - Guide

2 réponses

Réponse 1 / 2

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
6 juil. 2010 à 12:47

et voilà!

Sub pourtouteslesfeuilles()
Dim c As Variant
For Each c In Worksheets
c.Select
ShowAllRecords
Next
End Sub

Réponse 2 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 943
Modifié par Mytå le 7/07/2010 à 03:39

Salut le forum

Enlever les filtrages des feuilles du classeur

Sub Enlever_Filtrage() 
Dim Sh As Worksheet 

For Each Sh In Sheets 
  With Sh 
    If .FilterMode Then 
        .ShowAllData 
    End If 
  End With 
Next Sh 

End Sub

Mytå
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)]

Newsletters