Problème textbox Cdate

Bonjour a tous

j'ai cette ligne qui me pose problème

Sheets("FICHE").Range("B8") = CDate(TextBox7.Value)

le souci est que lorsque la textbox est vide (et c'est normal au vu que c'est une date que je mettrai ultérieurement) j'ai un message d'erreur.

comment faire pour ignoré cette erreur et continuer la procédure.

Merci de votre aide

Bonjour reinruof77

Il suffit d'ajouter un test

If IsDate(TextBox7) Then Sheets("FICHE").Range("B8") = CDate(TextBox7.Value)

A+

Bonjour Bruno

pourtant tellement simple .

Merci