Macro suppression filtres - avancé.

[Gregfr84]

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.

 

[porcinet82]

Re : Macro suppression filtres - avancé.

Salut,

Pour boucler sur toute les feuilles :

Sub ShowAllRecords()
Dim k%

For k = 1 To Sheets.Count
    If Sheets(k).FilterMode Then Sheets(k).ShowAllData
Next k
End Sub

Pour la feuille 2 de manière spécifique, ajoute ton bouton dans la feuille 1 et dans son code, ajoute ceci :

If Sheets("Feuil2").FilterMode Then Sheets("Feuil2").ShowAllData

@+