Textebox sous format Date Résolu/Fermé

Question

Bonjour, 


J'ai créé une Textbox et je voudrais lui dire qui ce qui va etre dedans est une date.
Je ne sais pas comment m'y prendre...

Merci de votre aide !!

pijaku · Answer

Bonjour,
Il y a plusieurs solutions. Ne sachant pas exactement ce que vous souhaitez, je vous livre deux codes vous permettant de réaliser cela :
Ce premier code se déclecnche automatiquement lors de l'évènement TextBox_Change, c'est à dire à chaque caractère que vous saisissez dans votre TextBox. Il fait en sorte qu'automatiquement se mette en 3ème et 5ème position les "/" indispensables.

Private Sub TextBox1_Change()
Dim valeur As Byte
    TextBox1.MaxLength = 10
    valeur = Len(TextBox1)
    If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Ce code permet de renvoyer dans la cellule A1 (feuille Feuil1) la valeur de la TextBox1 changée au format Date :

Sheets("Feuil1").Range("A1") = CDate(TextBox1.Value)

foo · Answer

Ok merci beaucoup.

J'ai pris la seconde solution, ca marche!

Textebox sous format Date

2 réponses

Discussions similaires