Autofilter error

bonjour,

SVP est il possible de me montrer que ca marche pas sur ce code.

Sub save_cell_value()

Sheet("test") ,Range("A4").Autofilter Field:=2, Criteria1 : Cells (2. 6).Value

End Sub

Bonjour noureddine, le forum,

Sheet("test") ,Range("A4").Autofilter Field:=2, Criteria1 : Cells (2. 6).Value

Sub save_cell_value()
    Sheets("test").Range("A4").CurrentRegion.AutoFilter
    Sheets("test").Range("A4").CurrentRegion.AutoFilter Field:=2, Criteria1:=Cells(2, 6).Value
End Sub

Un exemple...

Sub save_cell_value()
 Dim plage As Range
  With Sheets("test")
   Set plage = .Range("A4").CurrentRegion
    plage.AutoFilter
    plage.AutoFilter Field:=2, Criteria1:=Cells(2, 6).Value
  End With
End Sub

Cordialement,

Merci bcp

Ca functionne tres bien