Pb Filtre élaboré entre 2 Date dans USF

[xvella]

Bonsoir Forum,

Je n'arrive pas à savoir ce qui à changer entre la version 2003 et 2007 .

Mon code marchait très bien sur la version 2003.

La je suis Perdu.

Merci pour l'aide que vous m’apporterez.

A++++

 

[BOISGONTIER]

Re : Pb Filtre élaboré entre 2 Date dans USF

Bonjour,


Il faut inverser le jour et le mois.

Private Sub cmdFiltre_Click()
 Dim List As Range
 Dim Cri As Range
 Dim copy As Range
 With Sheets("Filtrage")
 .Range("O4").Value = "Date"
 .Range("P4").Value = "Date"
 .Range("O5").Value = ">=" & Format(UsfCrit.txtDone, "mm/dd/yyyy")
 .Range("P5").Value = "<=" & Format(UsfCrit.txtDtwo, "mm/dd/yyyy")
 Set List = .Range("B4:F30")
 Set Cri = .Range("O4:P5")
 Set copy = .Range("H4:L30")
 List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy,   unique:=False
 End With
 Unload Me
End Sub

Multi-versions

Private Sub cmdFiltre_Click()
  Dim List As Range
  Dim Cri As Range
  Dim copy As Range
  With Sheets("Filtrage")
   .Range("O4").Value = "Date"
   .Range("P4").Value = "Date"
   If Val(Application.Version) >= 12 Then
     .Range("O5").Value = ">=" & Format(UsfCrit.txtDone, "mm/dd/yyyy")
     .Range("P5").Value = "<=" & Format(UsfCrit.txtDtwo, "mm/dd/yyyy")
   Else
     .Range("O5").Value = ">=" & UsfCrit.txtDone
     .Range("P5").Value = "<=" & UsfCrit.txtDtwo
   End If
   Set List = .Range("B4:F30")
   Set Cri = .Range("O4:P5")
   Set copy = .Range("H4:L30")
   List.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, Copytorange:=copy, unique:=False
  End With
  Unload Me
End Sub

Extraction entre 2 dates avec le filtre élaboré


JB

 

[xvella]

Re : Pb Filtre élaboré entre 2 Date dans USF

Bonjour BOISGONTIER,
Bonjour Forum,

Un Grand Merci plus qu'à le tester sur la version 2010.

Encore Merci A+