Lone-wolf
XLDnaute Barbatruc
Bonsoir à tous
J'ai un serieux problème pour filtrer un tableau par semaine suivant critères de deux dates.
Les codes suivants sont obsolètes. Un coup de main serait la bienvenue.
J'ai un serieux problème pour filtrer un tableau par semaine suivant critères de deux dates.
VB:
Date1 = Range("m3")
Date2 = Range("o3")
derlig = Range("a" & Rows.Count).End(xlUp).Row
If Range("o3") <> "" Then
Set plage = Range("a6:f" & derlig)
For Each cel In plage
If cel.Offset(, 1) = Date1 And cel.Offset(, 1) = Date2 Then
plage.AutoFilter Field:=2, Criteria1:=">=" & Date1, Operator:=xlAnd, Criteria2:="<=" & Date2
End If
Next cel
End If
If Range("o3") <> "" Then
Set plage = Range("a6:f" & derlig)
plage.AutoFilter Field:=2, Criteria1:=">=" & Format(Range("m3"), "ddd d mmmm"), Operator:=xlAnd, _
Criteria2:="<=" & Format(Range("o3"), "ddd d mmmm")
End If
Les codes suivants sont obsolètes. Un coup de main serait la bienvenue.
Pièces jointes
Dernière édition: