Forcer l'entrer d'une date dans un textbox

Bonjour,

J'ai essayé le code ci dessous, mais celui-ci m'indique la date du jours sans possibilité de modification.

Dès que j'active le formulaire "userform" j'aimerais avoir cette affichage " 00/00/00" dans la textbox et que je puisse modifier les 0 par la suite.

Private Sub TextBox1_Change()

'Code permettant de mettre une date au format 00/00/00 dans une textbox

Dim valeur As Byte

TextBox1.MaxLength = 8 'nb caractères maxi autorisé dans le textbox

valeur = Len(TextBox1)

TextBox1.Value = Format(Date, "dd / mm / yy")

If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"

End Sub

Merci d'avance pour votre aide

Bonjour,

Sans fichier, difficile de répondre

Néanmoins, tu peux essayer le code "Cdate"

Private Sub TextBox1_Enter()
'Code permettant de mettre une date au format 00/00/00 dans une textbox
Dim valeur As Byte
Dim dat As Date
TextBox1.MaxLength = 8 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox1)
TextBox1.Value = CDate(Date)
If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub

Cordialement

Ahah désolé j'ai as le temps de regarder... c'est urgent Carole? ^^

ps: je vois qu'on a les même adresse!

Bonjour,

Dès que j'active le formulaire "userform" j'aimerais avoir cette affichage " 00/00/00" dans la textbox et que je puisse modifier les 0 par la suite.

A tester:

Private Sub TextBox1_Change()
'Code permettant de mettre une date au format 00/00/00 dans une textbox
Dim valeur As Byte
TextBox1.MaxLength = 8 'nb caractères maxi autorisé dans le textbox
valeur = Len(TextBox1)
'TextBox1.Value = Format(Date, "dd / mm / yy")

If valeur = 2 Or valeur = 5 Then TextBox1 = TextBox1 & "/"

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = "00/00/00"
End Sub

Cordialement,

Merci le code fonctionne super bonne journée

Merci de ton retour,

A bientôt,