Format date différent entre textbox et excel

Version imprimable

25/10/2011, 16h48
catetesse

Format date différent entre textbox et excel
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:

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
25/10/2011, 17h10
Jean-Pierre49
Bonjour Catherine

as-tu essayé
Code:

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
26/10/2011, 08h27
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
26/10/2011, 08h33
Jean-Pierre49

Bonjour Catherine,

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

Supprime Cdate

Code:

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

Tu dis

Bon courage
26/10/2011, 08h39
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
26/10/2011, 08h49
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
26/10/2011, 08h58
catetesse

J'ai déjà cherché sur le forum, j'ai trouvé des pistes mais ça ne fonctionne pas.
Ou je n'arrive pas à faire fonctionner.

Je continue mes recherches mais si quelqu'un avait une idée ...

Merci

Catherine
26/10/2011, 09h11
gFZT82

Bonjour,

De mon coté, le code suivant fonctionne correctement

Code:

Worksheets("Ordre").Range("B12") = CDate(tBDateenlev.Text)

avec un format de cellule Date, type *14/03/2001

Cordialement.
26/10/2011, 09h28
catetesse
Bonjour,

J'ai à nouveau essayé avec Cdate :
Code:

1 2 3 Private Sub tBDateenlev_Change() Sheets("Ordre").Range("b12").Value = CDate(tBDateenlev.Value) End Sub
J'ai le message d'erreur : "Erreur exécution 13 – incompatibilité de type"

J'ai donc essayé à nouveau avec Format et cette fois ci ça marche, je n'avais pas dû enregistrer le code correctement la première fois.
Code:

1 2 3 Private Sub tBDateenlev_Change() Sheets("Ordre").Range("b12").Value = Format(tBDateenlev.Value, "mm/dd/yyyy") End Sub
Merci pour votre aide.
J'avais trouvé des pistes dans le forum mais très compliquées : ce code est vraiment simple.

Catherine
26/10/2011, 10h14
Didier Gonard

Bonjour,

vois ce tuto :
Comprendre et gérer les dates sous Excel et en VBA

en III-C entre autres,

cordialement,

Didier