Données / fitrer / filte automatique

[CG2000]

Bonsoir les Amis de Excel, Bonsoir le Forum,

Quelle macro peut me reporter sur chaque feuille :
Données / fitrer / filte automatique identique a feuil1 ?
les colonnes sont identiques et les titres de colones identiques.
Une colle pour moi !

Merci par avance de vos réponses.

CG2000

 

[mth]

Re : Données / fitrer / filte automatique

Bonsoir CG2000

Pas sûre d'avoir compris ce que tu voulais, mais essaie peut-être ceci ?

Sub Macro1()
Dim i As Byte
i = ThisWorkbook.Worksheets.Count
For i = 1 To i
    With Sheets(i)
        If .AutoFilter Is Nothing Then
            .[A1].AutoFilter
        End If
    End With
Next i
 
End Sub

Bonne soirée,

mth

 

[CG2000]

Re : Données / fitrer / filte automatique

Bonsoir à tous,

Merci mth,

Bien vue, Réponse et résultat parfait.
Avec tous mes remerciements.

CG2000