Date à l'envers

Bonjour,

J'ai un problème sur une macro que je n'arrive pas à comprendre :

Dans une text box j'écris une date quand j'appuie sur mon bouton valider de ma userform, la date vient s'écrire dans une cellule de ma feuille de la façon suivante :

With Sheets(Me.ComboBox3.Value).Range("B3") = Me.TextBox3.Value

La cellule de ma feuille est bien en DATE FRANCAISE

Si j'écris sur ma textbox 05/10/23 il va s'écrire dans la cellule 10/05/23, comment faire pour que la date s'écrit correctement ??

Je ne comprend pas surtout que je demande à ma macro de prendre ce qui est écrit dans ma textbox et de le copier pourquoi est-elle modifiée ?

Merci par avance de votre aide

Bonjour

Remplace

With Sheets(Me.ComboBox3.Value).Range("B3") = Me.TextBox3.Value

par

  Sheets(Me.ComboBox3.Value).Range("B3") = cdate(Me.TextBox3.Value)

A+ François

Bonjour,

Ca marche très bien merci beaucoup

Rechercher des sujets similaires à "date envers"