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

[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

[gFZT82]

Bonjour,

De mon coté, le code suivant fonctionne correctement

Code :

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

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

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

Cordialement.

[catetesse]

Bonjour,

J'ai à nouveau essayé avec Cdate :

Code :

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

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 :

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

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

[Didier Gonard]

Bonjour,

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

en III-C entre autres,

cordialement,

Didier