Erreur d'exécution '13': Incompatibilité de type

Bonjour, je bloque sur incompatibilité de type "erreur d'éxécution 13"

Private Sub CommandButton1_Click()

Dim modif As Integer

Sheets("Feuil1").Select

If Not reference.Value = "" Then

modif = reference.ListIndex + 2

Cells(modif, 2) = TextBox2.Value

Cells(modif, 3) = TextBox3.Value

Cells(modif, 4) = TextBox4.Value

Cells(modif, 5) = TextBox5.Value

Cells(modif, 6) = CDate(TextBox6.Value)

Cells(modif, 7) = ComboBox1.Value

Cells(modif, 8) = ComboBox2.Value

Cells(modif, 9) = CDate(TextBox8.Value)

Cells(modif, 10) = CDate(TextBox7.Value)

Cells(modif, 11) = CDate(TextBox9.Value)

Cells(modif, 12) = CDate(Text_pris.Value)

Cells(modif, 13) = TextBox11.Value

End If

Unload Me

RECHERCHE_COMMANDE.Show

End Sub

Quand j'enlève les CDate les dates sont copiés dans la Feuil1 au format anglais mm/dd/yyyy

avec CDate cela fonctionne bien c'est à dire dd/mm/yyyy, mais cela me crée une erreur type 13 et là je ne vois pas la solution

J'espère avoir été suffisamment explicite sinon dite le moi.

Je vous renvois le fichier sans le mot de passe

Bonjour,

C'est normal que çà plante quand certaines cellules date restent vide. ou

quand vous écrivez "N° de Rappel" dans la textbox 6 alors que votre code indique que ce sera une date

Si certaines Textbox date ne sont pas forcément à saisir alors vous devez ajouter une condition de "non vide" avant de valider les modifications.

Mais surtout ne pas saisir des infos autre que des dates dans vos cellules date.

Exemple.

If TextBox6.Value <> "" Then
Cells(modif, 6) = CDate(TextBox6.Value)
End If

Merci Xmenpl pour ta réponse rapide effectivement je n'avais pas vu qu'une donnée c'était inscrite dans une date. Ta solution fonctionne à merveille encore un grand merci.