Problème de comparaison de date

Version imprimable

15/01/2014, 18h09
grimgrim

Problème de comparaison de date
bonjour,

dans un programme, je compare la date du jour avec une date dans une cellule.
Code:

1 2 3 If Cells(t, 17) > DateMaintenant Then Cells(t, 22) = "NOK" End If
la date de la cellule est "01/02/2014" et la date de ce jour est "15/01/2014".
Or, le programme ne prend pas en compte le "NOK" en sachant que dans la même colonne il prend bien en compte d'autres dates comme le 15/02/2014 ou encore 30/01/2014
J'ai vérifié les formats des cellules c'est ok

Avez vous une idée ?

Merci d'avance

Bonsoir,

Code:

1
2
3
 If Cells(1, 17) > Date Then
        Cells(t, 22) = "NOK"
    End If

avec l'heure

Code:

1
2
3
 If Cells(1, 17) > now Then
        Cells(t, 22) = "NOK"
    End If

15/01/2014, 21h28
grimgrim

bonsoir,

ma question était pourquoi cela ne fonctionne pas
je pense qu'il y a erreur sur la réponse

désolé
15/01/2014, 22h00
Invité

vue que DateMaintenant n'est pas une instruction VBA, je ne voie pas comment il serait possible d'affecter "NOK" à une cellule. à mois que tu précises comment est défini DateMaintenant et quand tu lui fourni une date valide!
15/01/2014, 22h19
ESVBA

Bonsoir à vous deux,

Grimgrim, indépendamment des formats les dates sont des nombres fractionnaires formatées en dates lisibles.

Le problème est comment la conversion se fait ?

Une date du genre "30/1/2014" c'est forcément un format européen puisque que 12 mois maxi par an. Mais la date "01/02/2013" peut être interprétée comme le deux janvier 2014 en format américain.

Quel est le format de la variable "DateMaintenant" ?

Rien de tel que de comparer des nombres après conversion avec "Dateserial".

ESVBA

Citation:

la date de la cellule est "01/02/2014" et la date de ce jour est "15/01/2014".
Or, le programme ne prend pas en compte le "NOK" en sachant que dans la même colonne il prend bien en compte d'autres dates comme le 15/02/2014 ou encore 30/01/2014
J'ai vérifié les formats des cellules c'est ok

@grimgrim

Vérifier les formats des cellules ne renseigne pas sur le type de la valeur dans la cellule. Il faut vérifier le Typename de la valeur. Le format affecte l'affichage et non la valeur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub tt() Cells(1, 1) = "01/02/2014" Cells(2, 1) = "15/1/2014" Cells(3, 1) = "30/01/2014" 'Cells(1, 1) = CDate("01/02/2014") 'Cells(2, 1) = CDate("15/01/2014") 'Cells(3, 1) = CDate("30/01/2014") For i = 1 To 3 Debug.Print TypeName(Cells(i, 1).Value), Cells(i, 1).Value, Date If Cells(i, 1) > Date Then Cells(i, 3) = "NOK" Else Cells(i, 3) = "OK" End If Next End Sub
Cordialement

Docmarti