date de naissance

[petchy]

bonsoir le forum

dans un USF j'ai un textbox ou je dois mettre un date de naissance de format 00/00/1900
comment puis je faire pour avoir se format.
merci
@ plus
petchy

 

[Robert]

Bonsoir Petchy, bonsoir le forum

Peut-être cette macro à la sortie du textbox pourrait te convenir (2 choix). Elle te permet de ne taper que le minimum et de l'afficher au format que tu désires. Par exemple, tu tapes 3/4/4 et à la sortie elle affiche 03/04/2004.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = DateValue(TextBox1.Value)
'ou
'TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
End Sub

À plus,

Robert

 

[petchy]

bonjour Robert et le forum

merci Robert pour se code,mais est ce possible que cela le fasse automatiqement:je tapes 2 chiffres et un slachs apparait
j'ai repris le code de Eric c pour le format d'heure
Private Sub TextBox14_Change()
Dim Val As Byte
TextBox14.MaxLength = 10
Val = Len(TextBox14)
If Val = 2 Then TextBox14 = TextBox14 & "/"
End Sub
mais ça me met un slachs au second chiffre et apprés rien.
merci encore Robert
@ plus
petchy

 

[Robert]

Re salut Pechy, salut le forum,

Ok j'avais pas compris... Dans ce cas reprend le code d'Eric mais comme ça :

Private Sub TextBox14_Change()
Dim Val As Byte
TextBox14.MaxLength = 10
Val = Len(TextBox14)
If Val = 2 Then TextBox14 = TextBox14 & "/"
If Val = 5 Then TextBox14 = TextBox14 & "/"
End Sub

À plus,

Robert

 

[petchy]

Re

Merci Robert,c'est impec,mais j'ai encore un petit soucis
quand je tape 03/09/1965 cela me renvoit 09/03/1965,par contre
si je tape 13/09/1965 cela me renvoit la bonne date sur ma cellule et si je tape 12/09/1965 cela devient 09/12/1965.
si tu aurais une petite idée

mais encore un grand merci pour le code
@ plus
petchy

 

[Robert]

Re Petchy, salut le forum,

J'imagine que tu renvoies la date dans une cellule à l'aide d'une ligne du genre : Range("A1").Value=TextBox14.Value... Essaie alors :

Range("A1").Value=DateValue(TextBox14.Value).

á devrait résoudre ton problème.

À plus,

Robert

 

[petchy]

bonsoir Robert et le forum

trop fort Robert ça fonctionne impec
un grand merci
bonne soirée
@ plus
petchy