Format date dans TextBox

Bonjour

Mets le Format uniquement dans la cellule finale

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Date
End Sub



Private Sub CommandButton1_Click()
L2 = Sheets("BDArchive").Range("A65536").End(xlUp).Row + 1
With Sheets("BDArchive").Range("A" & L2).Value = Format(
TextBox1.Value,"dd/mm/yyyy")
End With
End Sub

Salutations

Gilbert

"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le message
de news:eGLqHULxEHA.2172@TK2MSFTNGP14.phx.gbl...

Bonjour à tous

Je récupère la date dans TextBox1 grâce à cela :

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(Date, "dd/mm/yyyy")
End Sub

J'utilise cette proc pour envoyer cette date vers la Feuil1 mais celle-ci
s'inscrit sous le format (mm/dd/yy)

Private Sub CommandButton1_Click()
L2 = Sheets("BDArchive").Range("A65536").End(xlUp).Row + 1
With Sheets("BDArchive").Range("A" & L2).Value = TextBox1.Value
End With
End Sub

Merci de votre aide

Bonjour

Merci pour ton aide

Bon dimanche

Cordialement

David