Insertion Automatique des Séparateurs dans une Date

[Riri]

Bonsoir le Forum,

Dans un TextBox je saisie une date au format " jj/mm/aa ". Est-il possible que les séparateurs se mettent automatiquement . C'est à dire , je tappe le jour le séparateur s'affiche , le mois idem et l'année.

Merci pour votre aide ...........Riri

 

[michel]

bonsoir Riri

tu peux tester

Private Sub TextBox1_Change()
Dim Val As Byte
TextBox1.MaxLength = 8 'limiter le nb caracteres maxi dans textbox
' à redéfinir selon format souhaité
Val = Len(TextBox1)
If Val = 2 Or Val = 5 Then TextBox1 = TextBox1 & "/"
End Sub


bonne soiree
michel

 

[Riri]

Bonsoir michel,

Merci pour ta réponse je vais tester le code .

Bonne soirée à toi et @ + .......Riri

 

[Ronan]

Bonsoir,

Voir le Post suivant.

Sujet traité pour les heures, donc pour les dates ... idem

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=93140&t=93060

 

[myDearFriend]

Bonsoir Riri, Michel, Ronan.

Riri, j'avais réalisé il y a quelques temps le fichier ci-joint.

Si ce dernier peut t'être d'une quelconque utilité...

Cordialement.
Didier_mDF