Pb avec userform et date

KELLY · 24 Février 2012

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 · 24 Février 2012

Re : Pb avec userform et date

Bonjour Kelly,

Il suffit d'ajouter

Code:

On Error Resume Next

Code:

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

Code:

On Error Goto 0

A+

KELLY · 24 Février 2012

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 · 24 Février 2012

Re : Pb avec userform et date

Bonjour Kelly, Bruno

peut être une autre approche ainsi :

Code:

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

bon après midi
@+

Pb avec userform et date

KELLY

XLDnaute Nouveau

Compte Supprimé 979

Guest

KELLY

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires