Discussion :

[grimgrim]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avec l'heure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[grimgrim]

bonsoir,

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

désolé

[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!

[ESVBA]

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

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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