Textbox et date

Question

Bonjour à tous,

Une fois de plus je viens vers vous car je ne trouve pas de solution à mon problème ....

J'utilise un textbox dans un userform pour saisir des dates et lorsque je saisi, par exemple, la date du 2 avril 2015 sous le format jj/mm/aaaa dans le textbox, ma procédure d'écriture lancée, je me retrouve avec la date du 4 février 2015 dans la feuille de calcul.....

En revanche, si je saisi la date du 15 avril 2015, plus de problème .......

Voici un classeur en exemple, merci pour votre aide.

textbox et date .....

Answer 1

Bon jour,

Pour ma part ce code fonctionne correctement. J'ai juste rajouté le texte en gras sur le code initiale :

• Worksheets("Feuil1").Range("a2").Value = CDate(Format(TextBox1.Value, "dd/mm/yyyy"))

Answer 2

Merci à vous deux ça à l'air de fonctionner au mieux ;)

Answer 3

Bonjour,

VBA utilise le système de date américain : mm/jj/aaaa d'où inversiion quand mm<=12. Utilise :

Private Sub CommandButton1_Click() <br><br>With TextBox1 <br><br>    Worksheets("Feuil1").Range("a2").Value = DateSerial(Right(.Value, 4), Mid(.Value, 4, 2), Left(.Value, 2)) <br><br>    Worksheets("Feuil1").Range("a2").NumberFormat = "dd/mm/yyyy" <br><br>End With <br><br>End Sub

Daniel