Discussion :

[lafafmentvotre]

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 :

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
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 :

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

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.

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

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

MsgBox DateDiff("d", "01/11/2009", "01/10/2009")

[lafafmentvotre]

Hello

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

Code :

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

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

Il me colle une erreur d'arguments

[jfontaine]

quel est le type des variables cont_depart et cont_arrivee

Le code ci dessous fonctionne

Code :

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

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

[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

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

[lafafmentvotre]

Oula

Ça devient kohlanta là

Pourrais-tu donner un exemple ?

Merci