Dates inversées

Lamoriciere

XLDnaute Nouveau
Bonjour le forum,
Je n'arrive pas malgré mes recherches a trouver un résultat concernant le format des dates.
Dans un textbox destiné a recevoir les dates que je rentre au format dd/mm/yyyy, quand je valide mon USF elle est écrite au format mm/dd/yyyy dans ma feuille Excel.
J'ai essayé toutes sortes de solutions en vain.
Quelqu'un peut-il m'aider?

Merci beaucoup.
 
D

DKS

Guest
Salut

Si tu mets ça dans le code du bouton de validation de ton userform ça devrait marcher

Private Sub CommandButton1_Click()

Range('A1').Select
Selection.NumberFormat = 'dd/mm/yyyy'
Range('A1').Value = TextBox1.Value

Me.Hide

End Sub
 

Lamoriciere

XLDnaute Nouveau
Bonjour,

Oui, ton code fonctionne pour une cellule. Mais comment faire pour une colonne dont les cellules sont destinées à recevoir des dates?

J'ai trouvé une solution qui fera certainement soulever un tollé chez les puristes. J'ai formaté mon textbox pour qu'il place automatiquement une apostrophe avant la date et ainsi le problème est résolu du moins en ce qui me concerne.
TextBox1.Value = Format(TextBox1.Value, '''' ''0')

Merci Robert et DKS

Lamoricière
 
Haut Bas