Bonjour à vous tous,
Mon problème est le suivant.
Dans un j'ai un formulaire nommé TBdtedeb dans lequel j'aimerais bloquer la saisie à un seul et unique format jj/mm/aaaa, et que si ce format n'est pas respecté qu'un message "Format incorrect" apparaisse, et si le format est correct c'est alerte est caduque.
Voici le code que j'ai tenté de faire mais qui bloque à chaque tentative de renseignement de donnée..
Private Sub TBdtedeb_Change()
Dim Valeur As Byte
TBdtedeb.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TBdtedeb)
If Valeur = 2 Or Valeur = 5 Then TBdtedeb = TBdtedeb & "/"
If Not IsDate(TBdtedeb.Value) Then
MsgBox "Format incorrect"
TBdtedeb = ""
Exit Sub
End If
End Sub
Merci d'avance pour votre aide.
Mon problème est le suivant.
Dans un j'ai un formulaire nommé TBdtedeb dans lequel j'aimerais bloquer la saisie à un seul et unique format jj/mm/aaaa, et que si ce format n'est pas respecté qu'un message "Format incorrect" apparaisse, et si le format est correct c'est alerte est caduque.
Voici le code que j'ai tenté de faire mais qui bloque à chaque tentative de renseignement de donnée..
Private Sub TBdtedeb_Change()
Dim Valeur As Byte
TBdtedeb.MaxLength = 10 'nb caracteres maxi dans textbox
Valeur = Len(TBdtedeb)
If Valeur = 2 Or Valeur = 5 Then TBdtedeb = TBdtedeb & "/"
If Not IsDate(TBdtedeb.Value) Then
MsgBox "Format incorrect"
TBdtedeb = ""
Exit Sub
End If
End Sub
Merci d'avance pour votre aide.