format date

[poussy67]

Bonjour le forum

J'ai un petit souci de date que je n'arrive pas à trouvé une solution ou je me débrouille mal nul en vba. J'ai un USF avec un label qui contient une date (format texte) et qui doit le copier dans une cellule. jusquà la tout fonctionne mais il me le copie en format mm/dd/yy au lieu de dd/mm/yy, j'ai essaye cdate, date etc et je n'arrive pas ressoudre.

Merci d'avance pour votre coup de pouce

LabDateProd.Caption = Sheets("BD").Range("A40").value

 

[SergiO]

Re : format date

Bonjour poussy67,

Essaie peut-être ceci:

Format(LabDateProd.Caption, "dd/mm/yy")

@+

 

[poussy67]

Re : format date

bonjour sergio

Cela ne fonctionne pas, j'ai essayé avec un textbox au lieu d'un label.
quand je saise dans le textbox une date et que je valide l'action, dans la cellule il m'inverse la date j'ai placé cette ligne

Sheets("BD").Range("D29").Value = TextBox1.value= Format(Date = "dd/mm/yy")

et dans la cellule il me met la valeur FAUX

 

[MJ13]

Re : format date

Bonjour,

essayes ceci

Sheets("BD").Range("D29").Value = Format(TextBox1.Value, "mm/dd/yy")

 

[PascalXLD]

Re : format date

Bonjour

c'est pourtant bien le cdate à utiliser

Sheets("BD").Range("A40").value = CDate(LabDateProd.Caption)

 

[poussy67]

Re : format date

bonjours

J'ai trouvé, c'est bien cette formule qui fonctionne Sheets("BD").Range("D29").Value = CDate(Me.TextBox1)

merci beaucoup pour votre aide

cdt poussy