Private Sub tbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
if not isDate( tbDate.text) then
tbDate.text=format(Date,"dd/mm/yyyy") 'valeur par défaut
Cancel = true
else
'si c'est une date
End if
' ou test simple sur date:
' Cancel = Not IsDate(tbDate)
End Sub