Dates inversées

Lamoriciere · 23 Septembre 2005

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 · 23 Septembre 2005

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 · 24 Septembre 2005

Bonjour,

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

Robert · 24 Septembre 2005

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 · 25 Septembre 2005

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

Dates inversées

Lamoriciere

XLDnaute Nouveau

DKS

Guest

Lamoriciere

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Lamoriciere

XLDnaute Nouveau

Discussions similaires