Comparaison Dates dans textbox

Version imprimable

Bonjour

Je cherche le moyen de comparer les valeurs dates de deux textbox afin d'éviter des incohérences entre la date de départ et la date d'arrivée.

Voici mon code qui ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub cont_depart_GotFocus()
test = False
UserForm1.Show
If test = True Then
If DateValue(cont_depart.Value) <= DateValue(cont_arrivee.Value) Then
cont_depart.Value = ""
Sheets("INFORMATIQUE").Rows(18).EntireRow.Hidden = True
Sheets("INFORMATIQUE").Range("A18") = ""
cont_mouvement.Select
MsgBox "La date de départ ne peut être antérieure à la date d'arrivée." & vbLf & "Merci de modifier votre saisie.", vbOKOnly, "ERREUR DE SAISIE"
Else
cont_depart = Format(UserForm1.Calendar1.Value, "ddd dd mmm yyyy")
End If
End If
If cont_depart = "" Then
Sheets("INFORMATIQUE").Rows(18).EntireRow.Hidden = True
Sheets("INFORMATIQUE").Range("A18") = ""
Else
Sheets("INFORMATIQUE").Rows(18).EntireRow.Hidden = False
Sheets("INFORMATIQUE").Range("A18") = "Départ le : " & cont_depart
End If
End Sub

Ces textbox sont alimentées par un userform calendar :

Code:

1
2
3
4
5
6
7
8
Private Sub Calendar1_Click()
test = True
Hide
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = ""
Calendar1.Value = Date
End Sub

Je n'arrive pas à trouver le moyen de comparer.

Merci par avance pour votre aide.

02/10/2009, 16h16
jfontaine

Bonjour,

Tu peux utilliser l'instruction dateDiff qui te retourne, suivant un argument, soit le jour, l'année ...
si datediff negatif alors date fin antérieur a date début

Code:

MsgBox DateDiff("d", "01/11/2009", "01/10/2009")
02/10/2009, 16h41
lafafmentvotre

Hello

Merci mais je n'arrive pas à le mettre en forme :

Code:

If DateDiff("d", cont_depart, cont_arrivee) < 0 Then

Il me colle une erreur d'arguments

quel est le type des variables cont_depart et cont_arrivee

Le code ci dessous fonctionne

Code:

1
2
3
4
5
6
7
8
9
Dim cont_depart As String
Dim cont_arrivee As String
 
cont_depart = "01/11/2009"
cont_arrivee = "01/10/2009"
 
If DateDiff("d", cont_depart, cont_arrivee) < 0 Then
    MsgBox "anomalie"
End If

02/10/2009, 22h23
lafafmentvotre

Hello

Comme expliqué plus haut, mes 2 textbox sont alimentées par un userform calendar.
cont_arrivée et cont_depart sont remplis par des dates mais par contre, je ne les déclare pas dans mon sub avec des Dim ... as String
02/10/2009, 22h25
ucfoutu

Bonsoir,

L'expression conditionnelle, telle qu'elle était écrite (1er message) est bonne.
Elle devrait toutefois être accompagnée de la vérification de la validité de chacune des deux dates (avec Isdate). Si non : "incompatibilité de type" assurée.
02/10/2009, 22h29
lafafmentvotre

Oula

Ça devient kohlanta là :mouarf:

Pourrais-tu donner un exemple ?

Merci

Oui ?
Voilà (toto et titi sont des strings, comme le sont les contenus de tes textboxes)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
  Dim toto As String, titi As String
  toto = "01/01/2000"
  titi = "01/01/2001"
  MsgBox verifions(toto, titi)
 
  toto = "aaaaa"
  titi = "01/01/2001"
  MsgBox verifions(toto, titi)
   toto = "01/01/2002"
  titi = "01/01/2001"
  MsgBox verifions(toto, titi)
End Sub
 
Private Function verifions(D1 As String, D2 As String) As Boolean
 If Not IsDate(D1) Or Not IsDate(D2) Then Exit Function
  If DateValue(D1) <= DateValue(D2) Then Exit Function
  verifions = True
End Function

EDIT :
et si tu préfères avoir le détail de l'erreur éventuelle, remplace la fonction par ceci :

Code:

1
2
3
4
5
6
Private Function verifions(D1 As String, D2 As String) As String
 If Not IsDate(D1) Then verifions = "la 1ère date n'en est pas une": Exit Function
 If Not IsDate(D2) Then verifions = "la 2ème date n'en est pas une": Exit Function
  If DateValue(D1) <= DateValue(D2) Then verifions = "la 1ère date est plus petite que la 2ème": Exit Function
  verifions = "tout est bon"
End Function

20/10/2009, 10h39
lafafmentvotre

Bonjour

Après différents tests avec vos aides, le problème est résolu.

Désolé pour la réponse tardive.

Cette discussion peut être archivée.

Bonne journée à tous