Date non reconnue (saisie par userform)
Résolu
Bonsoir,
J'aurai besoin d'un peu d'aide.
Je saisis à l'aide d'un textbox des dates.
voici la formule utilisée
Private Sub TextBox2_Change()
Range("C10") = TextBox2
TextBox2.MaxLength = 10
TextBox2.AutoTab = True
Valeur = Len(TextBox2)
If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
End Sub
la date apparait mais alignée à gauche, et elle n'est pas reconnu comme une date dans le format.
Par contre, si je clique sur la case et dans l barre de de formule, cela suffit pour que ma date s'aligne à droite.
Merci par avance à quiconque pourrait m'aider.
J'aurai besoin d'un peu d'aide.
Je saisis à l'aide d'un textbox des dates.
voici la formule utilisée
Private Sub TextBox2_Change()
Range("C10") = TextBox2
TextBox2.MaxLength = 10
TextBox2.AutoTab = True
Valeur = Len(TextBox2)
If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
End Sub
la date apparait mais alignée à gauche, et elle n'est pas reconnu comme une date dans le format.
Par contre, si je clique sur la case et dans l barre de de formule, cela suffit pour que ma date s'aligne à droite.
Merci par avance à quiconque pourrait m'aider.
3 réponses
-
ModérateurSalut,
Sans avoir testé, je le tenterais comme cela :Private Sub TextBox2_Change() TextBox2.MaxLength = 10 TextBox2.AutoTab = True Valeur = Len(TextBox2) If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/" Range("C10") = CDate(TextBox2) End Sub -
Contributeurbonjour
Si tu remplaces ceci :
Range("C10") = TextBox2
par ceci cela devrait être plus adéquatIf IsDate(TextBox2.Value) Then Range("C10") = CDate(TextBox2.Value) End If -
merci beaucoup!
ça marche à conditon de saisir en xx/xx/xx au lieu de xx/xx/xxxx
voilà donc mon nouveau code
Private Sub TextBox2_Change()
TextBox2.MaxLength = 8
TextBox2.AutoTab = True
Valeur = Len(TextBox2)
If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
If IsDate(TextBox2.Value) Then
Range("C10") = CDate(TextBox2.Value)
End If
End Sub
