Pb avec userform et date

[KELLY]

Bonjour,
J'ai fait un userform afin d'afficher une fiche via ma base de données.
Dans certains textbox, il se peut qu'il n'y ait pas de dates, et je suis bloquée à ce niveau: il me renvoie "Erreur d'exécution "13" Imcompatibilité de type"
Mon code est le suivant :
TextBox17.Value = Worksheets("base").Range("I" & maposi & "").Value 'DERNIER TIV

Dim date1
Dim date2
Dim date3
Dim date4
Dim date5
Dim date6
date1 = Format(TextBox14.Value, "dd/mm/yyyy")
date1 = CDate(date1)
date2 = Format(TextBox16.Value, "dd/mm/yyyy")
date2 = CDate(date2)
date3 = Format(TextBox17.Value, "dd/mm/yyyy")
date3 = CDate(date3)
date4 = Format(TextBox15.Value, "dd/mm/yyyy")
date4 = CDate(date4)
date5 = Format(TextBox6.Value, "dd/mm/yyyy")
date5 = CDate(date5)
date6 = Format(TextBox7.Value, "dd/mm/yyyy")
date6 = CDate(date6)

Worksheets("fiche").Range("c12") = date1

Pouvez-vous m'aider.
Merci d'avance.

 

[Compte Supprimé 979]

Re : Pb avec userform et date

Bonjour Kelly,

Il suffit d'ajouter

On Error Resume Next

Dim date1
Dim date2
Dim date3
Dim date4
Dim date5
Dim date6
On Error Resume Next
date1 = Format(TextBox14.Value, "dd/mm/yyyy")
date1 = CDate(date1)
date2 = Format(TextBox16.Value, "dd/mm/yyyy")
date2 = CDate(date2)
date3 = Format(TextBox17.Value, "dd/mm/yyyy")
date3 = CDate(date3)
date4 = Format(TextBox15.Value, "dd/mm/yyyy")
date4 = CDate(date4)
date5 = Format(TextBox6.Value, "dd/mm/yyyy")
date5 = CDate(date5)
date6 = Format(TextBox7.Value, "dd/mm/yyyy")
date6 = CDate(date6)
On Error Goto 0
Worksheets("fiche").Range("c12") = date1

Ne pas oublier de réactiver le gestionnaire d'erreur à la normale

On Error Goto 0

A+

 

[KELLY]

Re : Pb avec userform et date

Merci infiniment BrunoM45 !
Cela fait deux jours que je suis dessus. Je me suis donc décidée à demander de l'aide et en 5mn vous me donnez la solution !!!
Encore MERCI!!!!!!!!!!!!!!!!!!!

 

[Pierrot93]

Re : Pb avec userform et date

Bonjour Kelly, Bruno

peut être une autre approche ainsi :

Dim date1 As Date
If IsDate(textbox1) Then date1 = CDate(textbox1)

bon après midi
@+