Un souci de date

Le
Apitos
Bonsoir à tous,

En voulant appliquer un filtre automatique à mon tableau dans la feuille =
"Base" (WS1) pour extraire des données entre deux dates, j’obtiens un r=
ésultat nulle, pourtant il y a bien une ligne qui correspond à mon filt=
re :

'--
date_debut = Date - Application.Choose(Application.Weekday(Date, 2), =
5, 6, 0, 1, 2, 3, 4)
date_fin = date_debut + 6
With WS1
If .AutoFilterMode = False Then .Range("A7:F7").AutoFilter
.Range("A7:F7").AutoFilter Field:=3, Criteria1:=">=" & Format=
(date_debut, "dd/mm/yyyy") _
, Operator:=xlAnd, Criteria2:="<=" &=
Format(date_fin, "dd/mm/yyyy")
End With
Set Rng = [_filterdatabase].Resize(, 6).SpecialCells(xlCellTypeVisibl=
e)
Clgn = [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).=
Count - 1
MsgBox "Count lignes = " & Clgn
'-

Date_début = 16/05/2012 ; Date_fin = 22/05/2012

Mais la date contenu dans le tableau est sous la forme :

16/05/2012 11:24:00

Y a-t-il un problème dans le format de la date ?

Merci.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #24485331
bonsoir Apitos,

essai avec le format 0 ou Standard

Criteria1:=">=" & Format(date_debut, "0")

--
isabelle



Le 2012-05-17 18:54, Apitos a écrit :
Bonsoir à tous,

En voulant appliquer un filtre automatique à mon tableau dans la feuille "Base" (WS1)



pour extraire des données entre deux dates, j’obtiens un résultat nulle, pourtant il y a bien une ligne qui correspond à mon filtre :

'--------------------------------------------------------
date_debut = Date - Application.Choose(Application.Weekday(Date, 2), 5, 6, 0, 1, 2, 3, 4)
date_fin = date_debut + 6
With WS1
If .AutoFilterMode = False Then .Range("A7:F7").AutoFilter
.Range("A7:F7").AutoFilter Field:=3, Criteria1:=">="& Format(date_debut, "dd/mm/yyyy") _
, Operator:=xlAnd, Criteria2:="<="& Format(date_fin, "dd/mm/yyyy")
End With
Set Rng = [_filterdatabase].Resize(, 6).SpecialCells(xlCellTypeVisible)
Clgn = [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1
MsgBox "Count lignes = "& Clgn
'-------------------------------------------------------------

Date_début = 16/05/2012 ; Date_fin = 22/05/2012

Mais la date contenu dans le tableau est sous la forme :

16/05/2012 11:24:00

Y a-t-il un problème dans le format de la date ?

Merci.
isabelle
Le #24485381
ou plutot avec cette correction,

Dim date_debut As Long, date_fin As Long
date_debut = Date - Application.Choose(Application.Weekday(Date, 2), 5, 6, 0, 1, 2, 3, 4)
date_fin = date_debut + 6
With WS1
If .AutoFilterMode = False Then .Range("A7:F7").AutoFilter
.Range("A7:F7").AutoFilter Field:=3, Criteria1:=">=" & date_debut _
, Operator:=xlAnd, Criteria2:="<=" & date_fin
End With
Set Rng = [_filterdatabase].Resize(, 6).SpecialCells(xlCellTypeVisible)
Clgn = [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1
MsgBox "Count lignes = " & Clgn

--
isabelle



Le 2012-05-17 19:47, isabelle a écrit :
bonsoir Apitos,

essai avec le format 0 ou Standard

Criteria1:=">=" & Format(date_debut, "0")

Apitos
Le #24485431
Bonsoir Isabelle,

Les deux solutions donnent un résultat.

Merci bien.
Publicité
Poster une réponse
Anonyme