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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
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
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
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
Bonjour,
Une alternative :
'------------------------------------ Dim DateProjectEntry As Date DateProjectEntry = Sheets(1).Cells(1, 1).Value If DateProjectEntry > DateSerial(2008, 1, 1) Then
'------------------------------------
Dim DateProjectEntry As Date
DateProjectEntry = Sheets(1).Cells(1, 1).Value
If DateProjectEntry > DateSerial(2008, 1, 1) Then
'------------------------------------ Dim DateProjectEntry As Date DateProjectEntry = Sheets(1).Cells(1, 1).Value If DateProjectEntry > DateSerial(2008, 1, 1) Then