date à récupérer

[alex]

salut tout le monde,

Dans une textbox d'un userform, je veux remplir avec une date type 17/06/03 et la récupérer sous cette forme en k5:

Private Sub TextBox3_Change()
Range("k5").Value = TextBox3.Value
End Sub

Pour 17/06/03, ça marche impec.

Cependant, lorsque le numéro du jour est inférieur ou égal à 12, ça me renvoie en k5 le nom du mois correspondant au numéro, suivi de la date.
Si quelqu'un a une idée pour résoudre le problème, merci d'avance.

A+,
Alex

 

[pyrof]

Bonjour,

dans les boites de dialogue, le format de date est amécicain mois jour année, alors que nous nous sommes jour mois année

voici le code pour inverser je jour et le mois

Sub essai()
date1 = "12/20/2003"
x = Split(date1, "/")
a = x(0)
x(0) = x(1)
x(1) = a
date2 = Join(x, "/")
End Sub

 

[alex]

Salut Pyrof,

j'ai un problème avec ton code. Je l'écrit et je l'appelle avec call essai dans un bouton de commande type valider mais il me renvoie 'erreur de compilation:sub ou fonction non définie', ceci pour split.

merci pour ton aide,

A+, Alex

 

[pyrof]

Bonjour,

Voici une autre solution

Sub essai()
date1 = "12/20/2003"
pos1 = InStr(date1, "/")
m = Mid(date1, 1, pos1 - 1)
pos2 = InStr(pos1 + 1, date1, "/")
j = Mid(date1, pos1 + 1, pos2 - pos1 - 1)
date2 = j & "/" & m & "/" & Mid(date1, pos2 + 1)
End Sub

 

[Alex]

salut,

ça marche toujours pas mais j'ai trouvé un site qui pourrait être utile:http://mapage.noos.fr/pnoss/trucsetastucesvb.html#050

Je sai pas trop comment m'en servir dans mon cas

 

[zon]

Bonjour à tous,


Alex, en utilisant format


[K5]=Format(textbox1.value,"DD/MM/YYYY"),


Adaptes le format de cellule K5 pour avoir JJ/MM/AA


A+++

 

[alex]

salut zon,

en fait, j'ai trouvé un truc:je change le format de ma cellule k5 en format texte et non en format date. Sinon, pour ta commande, je l'ai essayé dans mon textbox, ça change rien.

Merci encore pour ton aide.

A+, Alex

 

[zon]

Bonsoir à tous,


M'ai trompat,


[K5]=Format(textbox1.value,"MM/DD/YYYY")

on inverse jour et moi....

A+++

 

[alex]

salut,

merci ça marche...

A+, Alex