problème insertion date

  • Initiateur de la discussion rudaye
  • Date de début
R

rudaye

Guest
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
 
R

Robert

Guest
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
 

Discussions similaires

Réponses
6
Affichages
331
Réponses
17
Affichages
497

Statistiques des forums

Discussions
312 923
Messages
2 093 665
Membres
105 780
dernier inscrit
Autric