Encore moi...
J'ai un userfor. Avec une zone de texte a remplir.
Cette zone a pour code
private sub textbox1_change()
worksheets("config").sélect
range("e4").value=val (textbox1)
end sub
la cellule E4 est formatée en format date.
Seulement si je rentre dans le textbox une date xx/xx/xx
dans le classeur la date est fausse...
Pouvez vous me dire comment faire comprendre a excel que le contenu de la textbox est une date?
L'idéal étant de pouvoir inscrire uniquement 01022010 pour que la cellule du classeur soit 01/02/2010...
RE : Pouvez vous me dire comment faire comprendre a excel que le contenu de la textbox est une date?
L'idéal étant de pouvoir inscrire uniquement 01022010 pour que la cellule du classeur soit 01/02/2010...
Bonsoir guigui4901, Pierrot93,
Pour répondre à la question ci-dessus :
Code:
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox1.Text)
Case 2, 5
TextBox5.Text = TextBox1.Text & "/"
End Select
End Sub
Et :
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("config").Range("E4").Value=CDate(Textbox1)
End Sub
RE : Pouvez vous me dire comment faire comprendre a excel que le contenu de la textbox est une date?
L'idéal étant de pouvoir inscrire uniquement 01022010 pour que la cellule du classeur soit 01/02/2010...
Bonsoir guigui4901, Pierrot93,
Pour répondre à la question ci-dessus :
Code:
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case Len(TextBox1.Text)
Case 2, 5
TextBox5.Text = TextBox1.Text & "/"
End Select
End Sub
Et :
Code:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("config").Range("E4").Value=CDate(Textbox1)
End Sub