Sub retard()
On Error GoTo Fin 'gère l'erreur du textbox par encore rempli
If TextBox14 <> "" And TextBox15 <> "" And TextBox15 > TextBox14 Then
TextBox39 = "Vous avez pris un retard de " & DateDiff("d", CDate(TextBox14), CDate(TextBox15), 2, 2) & " jour(s)"
Else
If TextBox14 <> "" And TextBox15 <> "" And TextBox15 < TextBox14 Then
TextBox39 = "Vous êtes en avance de " & DateDiff("d", CDate(TextBox15), CDate(TextBox14), 2, 2) & " jour(s)"
Else
If TextBox14 <> "" And TextBox15 <> "" And TextBox15 = TextBox14 Then
TextBox39 = "Vous êtes dans les delais "
Else: TextBox39 = ""
End If
End If
End If
Fin:
End Sub