Date dans Textbox

[castor30]

Bonjour à tous,
Petite question à laquelle je ne trouve pas de réponse.
Je voudrai pouvoir autoriser la date dans un Textbox de 2 façons :
1/7/17 ou 01/07/2017 et que / se mettent automatiquement.
et que lors de l'écriture dans la feuille excel ça inscrit 01/07/2017
En vous remerciant de votre aide.

 

[pierrejean]

bonjour castor

inspire toi de ceci

 

[Hervé]

salut

en complément de la réponse de pierrejean que je suis très heureux de croiser, et en s'appuyant sur son exemple :

Private Sub TextBox1_Change()
Select Case Len(TextBox1)
Case 2, 5
TextBox1 = TextBox1 & "/"
End Select
End Sub

ceci ne répond pas tout à fait à ton souhait mais c'est une piste de départ

a plus

 

[castor30]

Bonjour pierrejean, hervé,
Je vous remercie c'est Ok pour moi.
Jean

 

[ChTi160]

Bonsoir castor30
Bonsoir Le Fil , Le Forum
Juste pour pouvoir Saluer mon vieil Ami Hervé
On pourrait aussi mettre ceci :

Private Sub TextBox1_Change()
TextBox1.MaxLength = 10 'nb caracteres maxi dans textbox
etc etc
End Sub

Private Sub TextBox1_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789", Chr(Touche)) = 0 Then Touche = 0 'si on tape autre chose qu'un chiffre, il est annulé
End Sub

voir ce lien peut être !!!! Lol
https://www.excel-downloads.com/threads/besoin-codes-pour-usf.20018616/page-2
Bonne fin de Soirée
Amicalement
Jean marie

 

[Si...]

Bonjour

Je me suis amusé à traiter la saisie de nombres dans un contrôle TextBox (Usf) en pensant aux maladroits (comme moi) qui cherchent les bouton du clavier et aux malchanceux (comme ÔÒ 😕😀) qui ont des problèmes avec celui-ci. Mon clavier numérique virtuel est traité avec un Module de classe.

J’ai tout regroupé mais il est facile d’isoler chaque cas.

Je n’ai pas eu le temps de tester cela en long et en large donc si…, vous savez où me trouver.

 

[DoubleZero]

Bonjour à toutes et à tous,

…, vous savez où me trouver.

Toutes mes excuses, castor30, pour cette intervention qui n'a d'autre but que de préciser les coordonnées téléphoniques et les tarifs de Si😀🙂😀 !

​

A bientôt 😉🙂

​

 

[Si...]

re

Merci ÔÒ pour la pub mais, moi qui voulais ne pas être reconnu, c’est râpé 😕 ! Je ne suis quand même pas blanc de rage 😎!

Après mon intervention chez toi, tu aurais pu aussi donner mes coordonnées chez HP (Hautes Parlottes).😵