Date dans textbox

[poussy67]

Bonjour le forum

J'aurai besoin de coup de pouce car je plante sur format date d'un textbox.
J'ai un USF qui me permet de sélectionner une feuille qui contient des dates dans le format (lundi 25 mai 2009) dans la feuille. Lors de la sélection dans le USF de la feuille dans le textbox j'ai le format 25/05/09 au lieu du format lundi 25 mai 2009.
J'ai essayé plusieurs formule j'ai souvent une valeur FAUX et je n'arrive pas a aller plus loin.

Dim L As Integer
Dim i As Byte
On Error Resume Next
Set WS = ThisWorkbook.Sheets(CStr(Me.ListeJour))
L = WS.Range("A65536").End(xlUp).Row
On Error GoTo 0
For i = 8 To L
Me.Date1.Caption = WS.Cells(i, 1)
Next
WS.Activate


merci d'avance pour le coup de pouce

poussy

 

[tototiti2008]

Re : Date dans textbox

Bonjour poussy67,

si Date1 est bien un Textbox (et non un Label), je te propose :

Me.Date1.Text = Format(WS.Cells(i, 1), "DDDD D MMMM YYYY")

 

[poussy67]

Re : Date dans textbox

Impect ça fonctionne

merci beaucoup pour ton aide

cdt poussy