Autofilter

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

Code:

---

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

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:

---

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

---

Merci pour le conseil

@+