Textebox sous format Date
Résolu
foo
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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 !!
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 !!
A voir également:
- Textebox sous format Date
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Format dat - Guide
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
2 réponses
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.
Ce code permet de renvoyer dans la cellule A1 (feuille Feuil1) la valeur de la TextBox1 changée au format Date :
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)