Re : Formulaire avec obligation de saise de date au format jj/mm/aaaa
Bonjour,
Je reviens à vous pour un problème qui concerne le début de l'userform (qui concerne les dates). En effet lorsque je lance la macro, la date se colle bien dans la cellule souhaitée, mais pour qu'elle soit prise en compte, je suis obligé de postionner le curseur de la souris sur cette date et de valider pour que le format date soit pris en compte. Ci-après les lignes de la commande TBdtedeb. A noter que j'ai exactement la même chose pour TBdtefin qui elle fonctionne très bien (la date étant reconnue automatiquement).
'Obligation de saisie format jj/mm/aaaa dans date de début de contrat
Private Sub TBdtedeb_Change() 'date
'exemple pour format xx-xx-xxxx
If TBdtedeb = "" Then Exit Sub
Dim Valeur As Byte
TBdtedeb.MaxLength = 10 'nb caractères maxi autorisé dans le labtxtbat
Valeur = Len(TBdtedeb)
If Valeur = 2 Or Valeur = 5 Then TBdtedeb = TBdtedeb & "-"
End Sub
'Obligation de saisie format jj/mm/aaaa dans date de début de contrat => message d'erreur
Private Sub TBdtedeb_AfterUpdate()
If Not IsDate(TBdtedeb.Value) Then
MsgBox "Format incorrect"
TBdtedeb = ""
Exit Sub
End If
If Left(Me.TBdtedeb, 2) > 31 Or Mid(Me.TBdtedeb, 4, 2) > 12 Or Right(Me.TBdtedeb, 4) < 1900 Then
MsgBox "Format incorrect"
TBdtedeb = ""
Exit Sub
End If
End Sub
Pour ce qui était de ma question concernant les %, cela ne fonctionne pas pour le moment, mais il faut que je regarde à nouveau mon code pour vérifier une éventuelle erreur..
Merci pour votre aide.