TextBox

[Ludwig]

Bonjour à tous,

Voici mon petit soucis... J'ai un TextBox qui me permet de saisir une date et de l'inscrire dans une cellule. Jusque là tout va bien, sauf que de temps en temps il s'inscrit dans la cellule une date qui ne correspond pas à la saisie.
Ex: 01/12/2003 s'inscrira 12/01/2003 par contre 18/12/2003 s'inscrira 18/12/2003. En fait quand le jour est inferieur au mois l'ordre s'inverse.

Dans mon code j'ai:

Private Sub CommandButton2_Click()
Range("A3").Value = TextBox1.Value
End Sub

Private Sub TextBox1_Change()
Dim FormatDate As String
FormatDate = TextBox1.Value
Select Case Len(FormatDate)
Case 2
FormatDate = FormatDate & "/"
End Select
Select Case Len(FormatDate)
Case 5
FormatDate = FormatDate & "/20"
End Select
TextBox1.Value = FormatDate
End Sub

Est-ce qu'une personne aurai une explication? Merci d'avance pour tout.

Ludwig

 

[aurelie]

Bonjour Ludwig,

Je ne sais pas si ca peut etre ca mais j'ai l'impression que ton format date est américain.
Et des que tu dépasses 12, il met ton mois par défaut...
Je ne sais vraiment pas si ca peut etre ca, il faudrait qu'on te le confirme...

@+
aurelie

 

[Ludwig]

Bonsoir Aurelie, le forum

Merci pour ta réponse, c'est très gentil.
Comment faire pour renvoyer exactement la valeur que j'ai saisi...

Merci beaucoup

Ludwig

 

[romangelo]

voici qui pourrait t'aider :

dat = textbox1.Value
mois = Mid(dat, 1, 2)
jour = Mid(dat, 4, 2)
If Mid(dat, 2, 1) = "/" Then
mois = Mid(tu, 1, 1)
jour = Mid(tu, 3, 2)
End If
[a1] = jour & "/" & mois

Dans ce cas là, tu rentres ta date à n'importe quel format..
ex:
1/1 -> 01/01/04
01/01 -> 01/01/04
1/01 -> 01/01/04
01/1 -> 01/01/04

par contre, cette syntaxe de programme que je viens de te mettre ne marche que pour l'année en cours... si tu veux pouvoir y mettre l'année de ton choix, prend exemple et fais agir ta ptite tete !

Bon courage pour la suite...

Rom.