problème de date

[Pierre]

Bonsoir à tous,
Je joins un petit fichier afin de comprendre mon problème.
Si je ne rempli pas un textbox, une erreur est générée.
Comment faire pour renvoyer une valeur nulle si je ne rempli pas le texbox.
Si je mets ce code les dates sont inversées :Range("a1") = TextBox1.Value
j'ai du mettre le code suivant :
ActiveCell.Offset(0, 1).Value = DateValue(UserForm1.TextBox1.Value)
Merci pour votre aide.
Pierre

 

[tatiak]

Et comme ceci, est-ce que ça répond à la question?