La date VBA s'inverse dans le classeur

] Bonsoir la famille

Alors voilà

J'ai un petit soucis sur VBA d'excel.

Dans un userform que j'ai mis sur pied j'ai un textbox dans lequel j'écris la date Sauf que lorsque je l'écris dans cet textbox il s'inverse dans le classeur exemple : sur vba j'écris 12/01/2017 mais sur excel ça devient 01/12/2017

aidez moi s'il vous plaît je sais plus trop quoi faire je réfléchis déçu ca fait une semaine déjà

Et faudrait savoir que je suis un bleu en vba donc.

Ci-joint le fichier pour plus d'éclaircissement.

Bonjour,

ta_cellule=cdate(ton_textbox)

eric

Bonjour

Prend l'habitude de nommer tes objets.

textbox10 n'a aucun sens : le nommer LaDate par exemple permet de comprendre le code quand on s'y repenche quelques mois plus tard...

Cela ne prend que quelques minutes et épargne des erreurs et des pertes de temps...

Bonjour à toi Chris et merci pour ce conseil

bonjour Eric

excuse moi mais je sais pas trop comment mettre ton code là.

bon voila ce que j'ai déjà écrit :

Commandbutton1 c'est pour enregistrer dans ma feuille excel

Private Sub CommandButton1_Click()

Dim derligne As Integer

If MsgBox("Confirmez-Vous l'Ajout de cet Article?", vbYesNo, "CONFIRMATION") = vbYes Then

derligne = Sheets("Mouvement").Range("A456541").End(xlUp).Row + 1

Cells(derligne, 1) = TextBox1.Value

Cells(derligne, 2) = TextBox2.Value

Cells(derligne, 3) = ComboBox1.Value

Cells(derligne, 6) = ComboBox2.Value

Cells(derligne, 7) = ComboBox3.Value

Cells(derligne, 8) = TextBox3.Value

Cells(derligne, 9) = TextBox7.Value

Cells(derligne, 10) = TextBox5.Value

Cells(derligne, 11) = ComboBox4.Value

End If

Unload Me

GESTIONDESSTOCKS.Show

End Sub

Commandebutton2 cest pour quitter le vba:

Private Sub CommandButton2_Click()

Unload Me

End Sub

maintenant je voudrais que la date écrit dans textbox1 ne s'inverse pas voila ce que j'ai écrit

Private Sub TextBox1_Change()

TextBox1 = Date

End Sub

ou est ce que j'écris ton code là sil te plait?

Je regarderai quand tu auras indenté et mis les balises Codes que ce soit lisible.

Private Sub CommandButton1_Click()

Dim derligne As Integer

If MsgBox("Confirmez-Vous l'Ajout de cet Article?", vbYesNo, "CONFIRMATION") = vbYes Then

derligne = Sheets("Mouvement").Range("A456541").End(xlUp).Row + 1

Cells(derligne, 1) = TextBox1.Value

Cells(derligne, 2) = TextBox2.Value

Cells(derligne, 3) = ComboBox1.Value

Cells(derligne, 6) = ComboBox2.Value

Cells(derligne, 7) = ComboBox3.Value

Cells(derligne, 8)= TextBox3.Value

Cells(derligne, 9) = TextBox7.Value

Cells(derligne, 10) = TextBox5.Value

Cells(derligne, 11) = ComboBox4.Value

End If

Unload Me

GESTIONDESSTOCKS.Show

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub TextBox1_Change()

TextBox1 = Date

End Sub

Voilà Eric

Bonjour,

Du même avis qu'Eric ! Je ne lirai pas ton code tant qu'il n'est pas indenté et mis sous balises Code !

je sais plus trop quoi faire je réfléchis déçu ca fait une semaine déjà

Il n'y a pas vraiment à réfléchir ! Une TextBox, son nom l'indique, contient du texte (donnée de type String). Pour faire de ce texte une date (donnée de type Date) il faut qu'il ressemble à une date (ait un format reconnu comme format de date par VBA et dans les paramètres régionaux de Windows) et le convertir explicitement en date (conversion selon identification du format en se référant aux paramètres régionaux, soit en l'occurrence les paramètres FR), car si on ne le fait pas et que le format permette l'identification comme date, VBA convertira d'office ! (mais selon des paramètres US !)

Eric t'a d'ailleurs donné la solution !

Cordialement.

En effet eric m'a donné la solution

J'ai pu recommencer et ça a bien marché

Merci à tous et surtout a Eric