Filtrer avec DateSerial TimeSerial ou convertir l'instant en nombre

Bonjour,

http://cjoint.com/?dxpq2lO7hj

Sub essai()
[d2] = ">" & DateSerial(2006, 3, 24) + TimeSerial(14, 30, 33)
[A1:B1000].AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=[D1:D2], CopyToRange:=[H1:I1]
End Sub

Cordialement JB

Merci JB j'ai pensé à n truc et la solution etait en n+1 :une simple
addition.

[d2] = ">" & DateSerial(2006, 3, 24) + TimeSerial(14, 30, 33)

Par contre que signifie les crochets [d2] ? Est ce que ça remplace
vraiment tout ceci, jusqu'au parenthèses inversées

Sheets("CONTRATS").Range("A3:BZ" &
Sheets("CONTRATS").Range("A65536").End(xlUp).Row).AutoFilter Field:=3,
Criteria1:= )))))">" & DateSerial(An, Mois, jour)
+ TimeSerial(Heure, Minte, Seconde) * 1((((

Je veux filtrer sur place donc pas besoin du ' CopyToRange:=[H1:I1] '
?

Par contre le critères se retrouve bien dans le filtre mais il n'y a
rien d'affiché jusqu'à ce que j'aille vérifier la présence du
critère.
Est ce normal Docteur,


Le Nordiste

[D2] est une écriture abrégée de Range("D2")

L'exemple que j'avais donné fonctionnait avec le filtre Elaboré.

Pour le filtre auto, voir PJ (scénario4)

Il faut inverser le jour et le mois.

http://cjoint.com/?dxqWWKWlWm


JB

BRAVO et MERCI,
il était temps j'allais claquer la porte du bureau

Ce probléme de filtrer sur date et heure n'est il pas plus expliqué
dans les newsgroup ? Je n'aurais pas passer ma journée à régler ce
probléme.

MERCI encore JB et bonne soirée.

Le Nordiste