Problème de date entre USF et fichier

Question

J'ai posé ma question dans une question résolue c'est peut être pour cela que je n'ai pas de réponse. je retente dans un nouveau sujet bonjour, je suis très débutante en VBA et je me dépatouille en lisant tous les forums. Là malgré tout je reste dans l'impasse. Dans mon useform j'ai réussi à mettre la date du jour. Elle s'affiche correctement mais lors de l'insertion dans le fichier elle se mets en mm/dd/yyyy. impossible de le remettre en dd/mm/yyyy. merci d'avance de votre aide...

PinkRabbit · Answer

Je ne sais pas trop pourquoi mais ton problème est dans ton userform1 Remplace ta ligne existante dans UserForm1.CommandButton1_Click() Range("D" &amp; P).Value = CDate(TextBox8) sans forcer le format, ça marche pour moi mais normalement ça aurait du fonctionner ton écriture précédente...

Joco7915 · Answer

Mettre ce code à la place de l'autre Cordialement Private Sub CommandButton1_Click() Dim O As Integer If MsgBox("Confirmez-vous l'insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then P = Sheets("Clients").Range("B65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide Range("D" & P).Value = Format(TextBox8, "MM / DD / YYYY") ' Range("F" & P).Value = ComboBox1 Range("E" & P).Value = ComboBox2 Range("B" & P).Value = UCase(TextBox1) Range("C" & P).Value = UCase(TextBox2) Range("I" & P).Value = Format(TextBox3, "general number") Range("J" & P).Value = Format(TextBox3, "general number") Range("H" & P).Value = UCase(TextBox4) Range("G" & P).Value = TextBox5 Range("K" & P).Value = Format(TextBox7, "0#"" ""##"" ""##"" ""##"" ""##") Range("L" & P).Value = TextBox6 End If Unload Me UserForm1.Show End Sub...