Format de la date à l'écriture dans une cellule

Bonjour à tous,

A l'initialisation de l'userform j'ai mis mis ce bout de code pour ajouter automatiquement la date du jour dans textbox ici => ( DateBox). Pas de soucis !

 ' Ajoute automatiquement la date du jour dans la textbox Date
    Me.DateBox = DateValue(Date)

J'ai également mis le code suivant dans le bouton ajouter pour que le format soit correct à l'écriture dans la cellule. Cela à l'air d’être correct à l'écriture !

ActiveCell = DateBox.Value
ActiveCell = DateValue(Format(Date, "dd/mm/yyyy"))

Mon problème :

Même en modifiant la date manuellement (parfois nécessaire) dans le formulaire au moment de la saisie, il m'affiche toujours la date du jour à l'écriture dans la cellule. Il y a un truc qui m'a échappé. Pourriez-vous m'éclairer, SVP ?

D'avance merci
JLuc

Bonjour,

Dans la ligne de code

ActiveCell = DateValue(Format(Date, "dd/mm/yyyy"))

, tu formates "Date" qui te renvoie la date du jour et pas la date que tu as éventuellement modifiée dans DateBox.

Bonjour Cylfo

Comment dois je proceder dans ce cas ? Merci

Bonjour,

Teste ceci

ActiveCell = Format(me.DateBox, "dd/mm/yyyy")

holala, oui, comment j'étais à coter de mes pompes. Merci M12. C'était bien cela !
Merci beaucoup à tous les deux de m'avoir aider.

Bonne journée