problème insertion date

[rudaye]

J'ai un userform d'insertion de données et avec ce code

With Sheets(WSName)
.Range('C' & L).Value = CDate(TextBox2.Value)

S'il n'y a rien dans la textbox2 contenant la date, il me met erreur d'instruction 13

pkoi?


merci

 

[Robert]

Bonjour Rud@i, bonjour le forum,

CDate(TextBox2.Value) convertit en date le contenu de la TextBox2 et cela provoque l'erreur 13 si la TextBox2 est vide ou si la valeur contenue n'est pas convertible en date (une chaîne de texte par exemple). Tu peux utiliser On Error Resume Next qui signifie qu'en cas d'erreur il faut passer à la ligne suivante pour eviter ce problème :

On Error Resume Next
With Sheets(WSName)
.Range('C' & L).Value = CDate(TextBox2.Value)

À plus,

Robert

 

[rudyperray]

bonsoir robert et merci j'essaierais demain au boulot


Bonne nuit :S

 

[rudyperray]

merci robert c'est nickel

@+