Macro supprimer les filtres
greg
-
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
Mytå Messages postés 4246 Date d'inscription Statut Contributeur Dernière intervention -
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.
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.
2 réponses
-
et voilà!
Sub pourtouteslesfeuilles()
Dim c As Variant
For Each c In Worksheets
c.Select
ShowAllRecords
Next
End Sub -
Salut le forum
Enlever les filtrages des feuilles du classeurSub 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)]
