Erreur date userform

bonjour a tous,

voici mes ligne de code de mon bouton validé

Private Sub BtnValider_Click()
Sheets("achats").Activate
 Dim i As Integer
 Dim ctl As Control
 Dim marep As Long
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.TextBox Then
        If ctl.Text = "" Then
            MsgBox "Saisie incomplète"
            Exit Sub
        End If
    End If
Next
    i = 7
    Do While Cells(i, 3) <> ""
        Cells(i, 3).Offset(1, 0).Select
        i = i + 1
        Loop
        ActiveCell.Value = Ajdepenses.TDate.Value
        ActiveCell.Offset(0, 1).Value = Ajdepenses.TRef.Value
        ActiveCell.Offset(0, 2).Value = Ajdepenses.TNom.Value
        ActiveCell.Offset(0, 3).Value = Ajdepenses.TMts.Value
        ActiveCell.Offset(0, 4).Value = Ajdepenses.TLbelle.Value
        ActiveCell.Offset(0, 5).Value = Ajdepenses.CMode.Value
 marep = MsgBox("voulez-vous saisir une autre depense ?", vbYesNo)

If marep = vbYes Then

Unload Ajdepenses
Ajdepenses.Show
Else
Unload Ajdepenses
    Sheets("Accueil ").Select
    Range("A9").Select
End If
    End Sub

quand je rentre le date du 12/01/17 la fonction me rempli ma feuille "achat" a la date 01/12/17

quelqu'un a une idée merci

bonjour,

Autant pour moi... Il sort d'où ton TDate ?

Essaie :

ActiveCell.Value2 = Ajdepenses.TDate

A+

je vous joint le classeur ce qui seras plus simple, et encore merci pour votre aide

de plus Pb sur useform recettes impossible de rentre une date antérieur

Voir en pièce jointe.

A+

merci pour ton aide

c'est parfait