Sub CommandButton1_Click()
[D10] = TN
For n = 18 To 21
Cells(n, 4) = CDate(Me("C" & n - 18))
Next
Dim mess$, h
h = Array(TimeValue(C0.Caption), TimeValue(c1.Caption), TimeValue(c2.Caption) _
- TimeValue(C3.Caption))
mess = "Votre journée a débuté à " & Format(h(0), "hh:mm") & " pour se terminer à " _
& Format(h(1), "hh:mm") & "." & Chr(10) & "La pause repas a duré " & Format(h(2), "h:mm") _
& "."
Select Case h(2)
Case Is <= 1 / 96
mess = mess & " N'est-ce pas un peu court ?"
Case Is > 1 / 24
mess = mess & " Vous prenez votre temps !"
Case Else
mess = mess & " Est-ce bien vrai ?"
End Select
mess = mess & Chr(10) & "La durée de la journée s'est établie à " & Format(DHtot, "h:mm") _
& Chr(10)
If DHtot > 0.5 Then
mess = mess & "Belle durée, félicitations ! Mais elle dépasse la limite fatidique. " _
& "Elle ne sera donc pas validée. Désolé !"
ElseIf DHtot > 0.2 Then
mess = mess & "Bonne journée, oui ! Peut-être pourra-t-elle être validée ! Gardez espoir !"
Else
mess = mess & "Vous êtes passé bien vite ! Croyez-vous qu'il vaille la peine de faire " _
& "l'effort de la valider ?"
End If
mess = mess & Chr(10) & "N'oubliez pas la journée qui vous attend demain. Au revoir !"
MsgBox mess, vbExclamation, "Au revoir !"
Unload Me
End Sub