Private Sub DateOperation_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = Not IsDate(DateOperation.Text)
If Cancel Then ' Test du format DATE
MsgBox "Format incorrect > jj/mm/aaaa" & (Chr(10) & Chr(13)) & "Ou Date non valide.."
'Modification sur la ligne suivante:
DateOperation = Format(Date, "dd/mm/yyyy")
Else
DateOperation.Value = DateValue(DateOperation.Value) ' Donne le format exemple :12/03/2013 meme si on rentre 12/03/13
End If
End Sub