Dates inversées

[Lamoriciere]

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.

 

[DKS]

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]

Bonjour,

Merci DKS pour ton aide mais le problème est inchangé.

 

[Robert]

Bonjour lamoricière, DKS, bonsoir le forum.

Je te propose d'éssayer comme ça :

Range('Ta_cellule').Value = DateValue(TextBox1.Value)

Message édité par: Robert, à: 24/09/2005 23:33

 

[Lamoriciere]

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