Date non reconnue (saisie par userform) Résolu

Question

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.



Configuration: Windows XP / Internet Explorer 7.0

pijaku · Answer

Salut,
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

gbinforme · Answer

bonjour

Si tu remplaces ceci :
Range("C10") = TextBox2
par ceci cela devrait être plus adéquat
If IsDate(TextBox2.Value) Then
    Range("C10") = CDate(TextBox2.Value)
End If

estes · Answer

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

Date non reconnue (saisie par userform)

3 réponses

Discussions similaires

Newsletters