Format date dans VBA

Bonjour à tous,

Malgré quelques recherches mon niveau en VBA ne me permet pas de trouver/comprendre la solution à mon problème somme toute assez basique.

Je souhaite tout simplement faire appeler mon formulaire, y renseigner une date au format jj/mm/aa et en l'enregistrant dans ma feuille de calcul le format soit respecté. A aujourd'hui, quand je renseigne un format jj/mm/aa ma feuille de calcul est renseignée en mm/dd/aaaa.

Je vous joins en PJ mon fichier avec le formulaire et le code qui renseigne la colonne, mais avec le mauvais format de date.

En vous remerciant pour votre aide,

Cdt

Kytockx

Bonjour,

Essaie ainsi :

Private Sub CommandButton1_Click()
Dim Ligne As Long
    With Sheets("Format_Date")
        Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & Ligne).Value = CDate(Me.TB_Date.Value)
    End With
End Sub

Bonjour

Modifie par ce code

Private Sub CommandButton1_Click()

Dim Ligne As Long

  With Sheets("Format_Date")
    Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & Ligne).Value = Format(Me.TB_Date.Value, "mm/dd/yyyy")

End With

End Sub

Bonjour à tous,

Merci pour vos réponses, les 2 solutions fonctionnent parfaitement.

Par contre, pour comprendre pourriez-vous me confirmer que la solution de M12 est un formatage de la date saisie dans la TB et que la solution de Jean-Eric attribue à la date saisie un format date qui sera géré dans les propriétés du format de cellule une fois dans le feuille de calcul ?

En vous remerciant,

Cdt

Kytockx