Date non reconnue (saisie par userform)
Résolu
estes
-
estes -
estes -
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.
A voir également:
- Date non reconnue (saisie par userform)
- Cle usb non reconnue - Guide
- Saisie gestuelle iphone - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
- Saisie vocale sms - Guide
- Trier par date excel - Guide
3 réponses
Salut,
Sans avoir testé, je le tenterais comme cela :
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
bonjour
Si tu remplaces ceci :
Range("C10") = TextBox2
par ceci cela devrait être plus adéquat
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
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
ç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