bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <>
""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <>
""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <>
""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" a écrit dans le message de news:
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" <cgrosjean@europarl.eu.int> a écrit dans le message de news: FCDF330E-2F7D-4FE3-A84C-4EA3609F9FAC@microsoft.com...
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" a écrit dans le message de news:
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" a écrit dans le message de news:
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" <cgrosjean@europarl.eu.int> a écrit dans le message de news: FCDF330E-2F7D-4FE3-A84C-4EA3609F9FAC@microsoft.com...
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????
Bonjour Christophe,
A )
La difficulté première est de s'assurer que la date saisie dans un textbox représente bien la date désirée, que l'usager n'a pas
intervertit les jours et les mois !
3 syntaxes qui devraient fonctionner :
Évidemment, tu devras les adapter à ton code...
'----------------------------------
Dim Date1 as date
Dim Date2 as date
Date1 = cdate("10-oct-05")
Date2 = cdate("20-nov-05")
Selection.AutoFilter Field:=5, Criteria1=">=" & CLng(date1), Operator:=xlAnd _
, Criteria2:="<=" & CLng(date2)
Selection.AutoFilter Field:=5, Criteria1=">=" & date1 *1, Operator:=xlAnd _
, Criteria2:="<=" & date2 *1
Selection.AutoFilter Field:=5, Criteria1=">=" & & Format(date1, "m/d/yy"), _
Operator:=xlAnd , Criteria2:="<=" & & Format(date2, "m/d/yy")
'----------------------------------
Salutations!
"christophe" a écrit dans le message de news:
bonjour a vous tous
j'ai un filtre avec date mais quand je lance la macro rien ne s'affiche
voici mon code
Dim date1 As Date, date2 As Date, date3 As Date, date4 As Date
If Dat <> "" Then
date1 = DateSerial(Right(Dat.Value, 4), _
Mid(Dat.Value, 3, 2), Left(Dat.Value, 2))
date3 = CDate(date1)
End If
If dat1 <> "" Then
date2 = DateSerial(Right(dat1.Value, 4), Mid(dat1.Value, 3, 2),
Left(dat1.Value, 2))
date4 = CDate(date2)
End If
ElseIf Dat <> "" And dom = "" And loc1 = "" And catloc = "" And dat1 <> ""
Then
Selection.AutoFilter
Field: , Criteria1:=">=" & DateValue(date3) * 1, Operator:=xlAnd, _
Criteria2:="<="
& DateValue(date4) * 1
où est le bleme ???????????????