Private Sub TextBox5_AfterUpdate()
If Not (IsDate(TextBox5.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox5.Value = ""
Else
TextBox5.Value = Format(DateValue(TextBox5.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox6_AfterUpdate()
If Not (IsDate(TextBox6.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox6.Value = ""
Else
TextBox6.Value = Format(DateValue(TextBox6.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox7_AfterUpdate()
If Not (IsDate(TextBox7.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox7.Value = ""
Else
TextBox5.Value = Format(DateValue(TextBox7.Value), "dd/mm/yyyy")
End If
End Sub
Private Sub TextBox8_AfterUpdate()
If Not (IsDate(TextBox8.Value)) Then
MsgBox "Entrée la date sous la forme jj/mm/aaaa": TextBox8.Value = ""
Else
TextBox8.Value = Format(DateValue(TextBox58Value), "dd/mm/yyyy")
End If
End Sub