Insertion Automatique des Séparateurs dans une Date

M

michel

Guest

• 11 Juin 2004

• #2

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

 

Vote positif 0 Vote négatif

R

Riri

Guest

• 11 Juin 2004

• #3

Bonsoir michel,

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

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

 

Vote positif 0 Vote négatif

R

Ronan

Guest

• 12 Juin 2004

• #4

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

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 12 Juin 2004

• #5

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

 

Vote positif 0 Vote négatif