Discussion :

[catetesse]

Bonjour,

Cela fait un certain que je cherche dans le forum une solution à mon format de date et je n'en trouve pas qui fonctionne.
Dans un textbox je rentre la date 04/11/2011 ; je la copie dans Excel et j'obtiens 11/04/2011.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub tBDateenlev_Change()
Sheets("Ordre").Range("b12").Value = tBDateenlev.Value
End Sub

Comment définir simplement le format de date dd/mm/yyyy ?

Merci beaucoup

Catherine

[Jean-Pierre49]

Bonjour Catherine

as-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub tBDateenlev_Change()
Sheets("Ordre").Range("b12").Value = Format(Cdate(tBDateenlev.Value),"dd/mm/yyyy")
End Sub

et,ou force le format de ta cellule avant d'y mettre ta date

Bon courage

[catetesse]

Bonjour Jean-Pierre,

J'ai entré ton code mais j'ai un message d'erreur "Erreur de compilation - Erreur de syntaxe".

Faut-il définir Cdate ?

Merci

Catherine

[Jean-Pierre49]

Bonjour Catherine,

J'ai compilé, et je n'ai pas d'érreur

Supprime Cdate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Ordre").Range("b12").Value = Format(tBDateenlev.Value, "dd/mm/yyyy")

Tu dis

Bon courage

[catetesse]

Jean-Pierre,

En enlevant Cdate je n'ai plus de message d'erreur mais ça ne fonctionne pas car quand je tape 04/11/2011 j'ai toujours 11/04/2011 dans ma feuille Excel.

Y a t-il un autre moyen ?

merci

Catherine

[Jean-Pierre49]

Catherine,

Je sais que le problème à déja été soulevé dans le forum
il y a pas mal de temps

essaie de faire une recherche avec "format date" par exemple tu devrais trouver des pistes

bon courage