Problème retranscription userform dans tableau

Bonjour à tous !

Je me suis fait un userform pour récolter des informations de reservations pour par la suite les retranscrires dans un tableau :

image

Voici le code que j'utilise pour retranscrire les informations :

Private Sub ValiderRéserv_Click()

    Feuil3.Rows("2:2").Insert shift:=xlDown

    Feuil3.Range("A2") = Feuil3.Range("A3").Value + 1
    Feuil3.Range("H2").NumberFormat = "#,##0.00 €"
    Feuil3.Range("J2").NumberFormat = "#,##0.00 €"

    Feuil3.Range("B2") = Me.CbProd.Value
    Feuil3.Range("D2") = Me.Cbclient.Value
    Feuil3.Range("E2") = Me.TxDatedeb.Value
    Feuil3.Range("F2") = Me.TxDatefin.Value

    Unload Me
    MsgBox "Nouvelle réservation enregistrée"

End Sub

Sauf que voilà une fois sur 2 les dates sont mal retranscrite dans le tableau. Exemple :

image image

Quelqu'un aurait une idée de la provenance du problème ? ça fais une heure que je m'arrache les cheveux !

Merci beaucoup !!

Bonsoir Arnoooo ,

Essayez :

    Feuil3.Range("E2") = CDate(TxDatedeb)
    Feuil3.Range("F2") = CDate(TxDatefin)

ça fonctionne !! Merci beaucoup mafraise !

Rechercher des sujets similaires à "probleme retranscription userform tableau"