bonjour
voir un truc comme ca et sinon cherche un peux
A+
Maurice
If IsDate(TextBox9.Value) Then H3 = CDate(TextBox9.Value)
If IsDate(TextBox15.Value) Then H4 = CDate(TextBox15.Value)
TextBox16.Value = ""
If H3 > 0 Then
TextBox16.Value = Format(H3, "hh:mm")
End If
If H4 > 0 Then
TextBox16.Value = Format(H4, "hh:mm")
End If
If H3 > 0 And H4 > 0 Then
TextBox16.Value = Format(H4 + H3, "hh:mm")
End If