Sujet Précédent Sujet Suivant

Macro supprimer les filtres

greg -  
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.

A voir également:

2 réponses

Réponse 1 / 2
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
et voilà!

Sub pourtouteslesfeuilles()
Dim c As Variant
For Each c In Worksheets
c.Select
ShowAllRecords
Next
End Sub
0
Réponse 2 / 2
Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   954
 
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)]
0