Probleme de format textbox

[SSIAP2]

bonsoir

j'ai un petit soucis pour avoir la date automatiquement dans ma textbox1

j'utilise ce code Textbox1 = date

et ma textbox est formaté comme ce ceci jj-mm-aaaa

grace a ce code

If Len(Textbox1 .Value) = 2 Then Textbox1 .Value = Textbox1  & "-"
    If Len(Textbox1 .Value) = 5 Then Textbox1 .Value = Textbox1  & "-"

mon probleme est quand mon usf s'initialise la date de ma textbox redeviens sous ce format

jj/mm/aaaa

comment puis je faire pour que le format de ma textbox1 reste en jj-mm-aaaa

merci d'avance de votre aide

 

[Hervé]

Re : Probleme de format textbox

salut

tu as essayé comme ceci :

Private Sub UserForm_Initialize()
TextBox1 = Format(Date, "dd-mm-yyyy")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd-mm-yyyy")
End Sub

a plus

 

[SSIAP2]

Re : Probleme de format textbox

bonsoir hervé

pour ton aide merci

sa fonctionne super bien à bientot bonne soirée