Format de date intriguant

Bonjour,

j'utilise une macro qui me permet de récupérer une date voulue grace à un userform contenant 3 textebox (jour, mois et année) et de la recopier dans une cellule une fois saisie.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'remplissage date ActiveCell.Value = TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2) With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With

---

voila, je viens de tomber sur quelquechose d'intriguant, quand je fais des tests en rentrant 31 01 2008 cela marche parfaitement (il recopie bien 31/01/08 dans la cellule), par contre quand je rentre 01 02 2008, il recopie 02/01/08 au lieu de 01/02/08! il m'inverse le mois et le jour sans que je lui demande quoi que ce soit :s et pourtant le format des cellules est identique!
Je ne comprends pas, merci par avance de votre aide!!!

Bonjour,

Essayes Format(TADATE AVEC SLASHS, "DD/MM/YYYY")

ou tapes Format et appuies sur F1 pour plus d'explications...

A+

Je dirais plutôt:

Code:

---

ActiveCell.Value = CDate(TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2))

---

Voila ma réponse si j'ai bien compri le problème

Code:

---

1 2 3 4 5

TextBox2.MaxLength = 10 Valeur = Len(TextBox2)   If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/" If Len(TextBox2) = 10 And Not IsDate(TextBox2) Then TextBox2 = ""

---

Bonsoir,

il y a aussi, je pense, cette possibilité :

Code:

---

1 2 3

mydat = TextBox1.Value & "/" & TextBox2.Value & "/" & Right(TextBox3.Value, 2) mydat = DateSerial(Right(mydat, 4), Mid(mydat, 4, 2), Left(mydat, 2)) ActiveCell.Value = mydat

---

J'ai pris la réponse la plus simple, celle de AlainTech! Merci infiniment, ca marche comme sur des roulettes :king: