Format date jj/mm/aa dans textbox

bonjour le forum

j'ai une petite colle a vous poser

j'ai actuellement une macro ci dessous

Private Sub TextBox28_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'calcul de date - 3 mois
Dim d As Date
If Not IsDate(TextBox28) Then Exit Sub
d = CDate(TextBox28)

TextBox29 = DateSerial(Year(d), Month(d) - 3, Day(d))

End Sub

quand je tape la date au format jj/mm/aa dans le textbox 28, aprés le calcul elle est au format jj/mm/aaaa dans la textbox 29

comment faire pour avoir le meme format qu'au depart. soit jj/mm/aa dans textbox 29.

Merci de votre aide

Bonjour,

Essaye en changeant ceci :

TextBox29 = DateSerial(Year(d), Month(d) - 3, Day(d))

Par cela :

TextBox29 = Format(DateSerial(Year(d), Month(d) - 3, Day(d)), "dd/mm/yy")

A tester

Super

Merci beaucoup

Rechercher des sujets similaires à "format date textbox"