Macro suppression filtres - avancé.

Gregfr84 · 6 Juillet 2010

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 · 6 Juillet 2010

Re : Macro suppression filtres - avancé.

Salut,

Pour boucler sur toute les feuilles :

Code:

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 :

Code:

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

@+

Macro suppression filtres - avancé.

Gregfr84

Guest

porcinet82

XLDnaute Barbatruc

Discussions similaires

Macro suppression filtres - avancé.

Gregfr84

Guest

porcinet82

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency