Discussion :

[bibvba]

bonjour, pouvez m'expliquer pourquoi le filtre auto ne s'execute pas pour tous les sheets de mon workbook?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub essai()
 
Dim Onglet As Worksheet
    For Each Onglet In Worksheets
            Selection.AUTOFILTER
    Next
End Sub

merci d'avance

[ouskel'n'or]

Tu mets "Selection.AUTOFILTER"
Déjà, si ton code était correct, VBA aurait mis AutoFilter. Ça aurait dû t'éclairer.
Dans ce code, tu ne sélectionnes rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
Dim lafeuille As Worksheet
For Each lafeuille In ActiveWorkbook.Worksheets
    lafeuille.Select
    lafeuille.Range(Cells(1, 1), Cells(1, Range("IV1").End(xlToLeft).Column)).AutoFilter
Next
End Sub

[bibvba]

Merci pour le conseil

@+