pb dates

Le
jean-luc Guitard
Bonjour,
Si j'inscris dans la cellule Cells(2, 23) la date 01/12/2007
les lignes suivantes ne fonctionnent pas pourquoi?
DateProjectEntry = Sheets(1).Cells(2, 23).Value
If DateProjectEntry > "01/01/2008" Then

par contre ceci fonctionne
If CDATE(DateProjectEntry) > "01/01/2008" Then

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
DanielCo
Le #23234691
Bonjour,
Les deux lignes fonctionnent; as-tu un exemple qui ne fonctionne pas.
Personnellement, je ne mets pas les constantes date entre guillemets,
je les mets entre dièses :
#23/12/2011#
que VBA transforme automatiquement en date mm/jj/aaaa :
#12/23/2011#
Daniel


Bonjour,
Si j'inscris dans la cellule Cells(2, 23) la date 01/12/2007
les lignes suivantes ne fonctionnent pas pourquoi?
DateProjectEntry = Sheets(1).Cells(2, 23).Value
If DateProjectEntry > "01/01/2008" Then

par contre ceci fonctionne
If CDATE(DateProjectEntry) > "01/01/2008" Then

merci
MichD
Le #23234791
Bonjour,

Une alternative :

'------------------------------------
Dim DateProjectEntry As Date
DateProjectEntry = Sheets(1).Cells(1, 1).Value
If DateProjectEntry > DateSerial(2008, 1, 1) Then

End If
'------------------------------------



MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme