XL 2010 [Résolu] filtrer un tableau par semaine suivant deux dates

Lone-wolf

XLDnaute Barbatruc
Bonsoir à tous

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.
 

Fichiers joints

Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonsoir le Forum

Ouuuuff!! C'était temps. J'ai trouvé la soultion grace à une macro de Jacques Boisgontier.

Criteria1:=">=" & Range("m3").Value2, Operator:=xlAnd, Criteria2:="<=" & Range("o3").value2
 

Discussions similaires


Haut Bas