RESOLU : format date depuis un userform vers excel

[tany]

Bonjour à tous,

une date saisie dans un userform ne se met pas au format désiré dans une cellule
tout est dans la PJ
merci de vos conseils

 

[Pierrot93]

Re : format date depuis un userform vers excel

Bonjour,

essaye ceci :

Cells(1, 1) = CDate(Replace(TextBox1, "-", "/"))

bonne journée
@+

 

[exene]

Re : format date depuis un userform vers excel

Bonjour,

Peut être comme cela

Cells(1, 1) = Format(CDate(Me.TextBox1), "ddd dd mm yyyy")

@ plus

 

[tany]

Re : format date depuis un userform vers excel

Les deux fonctionnent impec !
heureusement que les copains sont là !
merci infiniment à tous deux.

 

[Roland_M]

Re : format date depuis un userform vers excel

bonjour à tous,

comme ceci:

Private Sub CommandButton1_Click()
If IsDate(TextBox1) Then
   Cells(1, 1) = Left(Format(TextBox1, "dddd"), 3) & " " & Format(TextBox1, "dd mmm yyyy")
  'ou
  'Cells(1, 1) = Format(TextBox1, "ddd dd mmm yyyy")
End If
End Sub

EDIT: on s'est croisé !?

 

[tany]

Re : format date depuis un userform vers excel

Merci également à Roland_M
ça va aussi bien... j'ai le choix LOL
bonne journée à tous