L
Ludwig
Guest
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
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