Discussion :

[jeo13]

Bonjour a tous,

Comme mon titre l'indique j'ai un souci au niveau d'une comparaison de dates.
je souhaite comparer une date entrée dans une feuille excel via un user form et la date d'aujourd'hui.

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
 
   Dim ValueDate As String
   ValueDate = Range("G" & k).Value
 
    Dim TodayDate, ValueDateGeneral As String
 
    'Date du jour
    TodayDate = Format(CDate(Now()), "General")
    ValueDateGeneral = Format(ValueDate, "General")
 
 If ValueDateGeneral < TodayDate Then
    MsgBox "KO"
    Else
    MsgBox "OK"
    End If

ou ValueDate est la date de valeur entrée dans la feuille excel dans la ligne k et colonne G via le userform: Le format de la date est Sun 05/10/2008, meme quand je choisis manuellement General dans le format de la cellule. De la meme facon la ligne de code suivante

Code :

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

    ValueDateGeneral = Format(ValueDate, "General")

n'a pas de réelle incidence sur le format de la date.

C'est la que je bloque. En fait j'aimerais passer au format 39536 pour pouvoir comparer les dates aisément, mais sans succés jusqu'a maintenant.

Si quelqu'un a une idée je suis preneur!


Merci d'avance!
JEO

[mayekeul]

bonjour,

utilise

Code :

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

1
2
3
4
5
6
7
8
9
 
 
If not DateDiff("d", date1, date2) Then
    'date identiques
    ...
else
    'même dates
    ...
end if

[zazaraignée]

Si tu veux comparer des dates, tu devrais le faire avec leur valeur numérique. Comparer des chaînes peux entrainer des erreurs d'interprétation de format...

Il y a justement une discussion en cours sur le comparaison des dates.

[hocine]

Salut,
j'aime la facilité, pourquoi ce cassé la tête

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
If TextBox1.Value = Str(Date) Then
MsgBox (" vraie")
Else
MsgBox ("faux")
End If
End Sub

NB:
controlsource de textbox1=feuil1!$a$1
à vous de changer le cellule
Bonne chance.
Merci.

[jeo13]

Merci beaucoup pour vos réponses.
En effet, le souci est de refaire passer les dates avec leur valeur numérique (Ce que je n'arrive pas a faire) pour faciliter la comparaison.

Comment faire passer/afficher la date du jour (Today() ou Now()) avec sa valeur numérique? Et je ferai de meme avec la date saisie par l'utilisateur dans le user form

J'ai essayé avec le format "general" mais rien n'y fait.

[fring]

Bonjour,

Ceci ne conviendrait pas ? (fais le test en entrant une date en A1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim ValueDate As Date '<-- déclaration type Date et pas type String
 
ValueDate = Range("A1").Value
 
If ValueDate < Now Then
    MsgBox "KO"
Else
    MsgBox "OK"
End If
 
End Sub

[jeo13]

Merci a tous!

J'ai enfin réussi a imposer mes formats de dates comme je voulais.

Finalement le probleme venait de mon formulaire de saisie (Un input).
Je suis passé par un calendrier tout fait en entrant une date au format Tue 3/06/2008 et en passant par une variable temporaire au même format que la date du jour (6/3/2008).

JEO