sharkantipav
XLDnaute Occasionnel
Bonjour tlm,
J'ai ecris une macro que j'utilise pour filtrer une Table utilisant des criteres places en cellulles U10:U15 ainsi que dans 2 Datepickers nommes DateFrom et DateTo. Voici mon code
Jai 2 erreurs de syntaxe
1/ j'ai une Error: Subscript out of range -- si un des criteres en cellules U10:U15.
2/ je n'arrive pas a utiliser les valeurs dans les DatePickers, j'ai Error 424: Object Required
Merci de votre aide
J'ai ecris une macro que j'utilise pour filtrer une Table utilisant des criteres places en cellulles U10:U15 ainsi que dans 2 Datepickers nommes DateFrom et DateTo. Voici mon code
Code:
Private Sub LookTra_Click()
Application.ScreenUpdating = False
If Range("U5") = "OPT" Then
ListObjects("OPT").Range.AutoFilter Field:=17, Criteria1 _
:="=" & Range("U11"), Operator:=xlAnd
ListObjects("OPT").Range.AutoFilter Field:=10, Criteria1 _
:="=" & Range("U12"), Operator:=xlAnd
ListObjects("OPT").Range.AutoFilter Field:=13, Criteria1 _
:="=" & Range("U13"), Operator:=xlAnd
ListObjects("OPT").Range.AutoFilter Field:=5, Criteria1 _
:="=" & Range("U14"), Operator:=xlAnd
ListObjects("OPT").Range.AutoFilter Field:=6, Criteria1:= _
">=" & DateFrom.Value, Operator:=xlAnd, Criteria2:="<=" & DateTo.Value
Sheets("OPT").Visible = True
Sheets("OPT").Select
End If
End Sub
Jai 2 erreurs de syntaxe
1/ j'ai une Error: Subscript out of range -- si un des criteres en cellules U10:U15.
2/ je n'arrive pas a utiliser les valeurs dans les DatePickers, j'ai Error 424: Object Required
Merci de votre aide