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
 

Robert

XLDnaute Barbatruc
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

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas