inversion jour et mois

[JYT]

j'utilise 1 userform pour remplir des données dans un tableau. dans ce tableau j'intègre des dates dans des textbox exemple: 01/12/05. mais quand j'enregistre j'ai une inversion jour et mois, resultat 12/01/05, ce jusqu'au 12 du mois. apres le résultat est correct, la formule que j'utilise pour enregistrer est: ActiveCell.Offset(0,1).Value=Userform1.textbox1.Value
Merci du coup de main pour rctifier ctte erreur
JYT

 

[jacktati]

Salut JYT

Format du texbox :

Afficher la date comme 01/01/2001 :
TextBox1.Value = Format(TextBox1.Value, 'dd/mm/yyyy')

@+

 

[PascalXLD]

Bonjour

Il faut passer par cdate

ActiveCell.Offset(0,1).Value=CDate(Userform1.textbox1.Value)

Bon courage

 

[mariobross]

Re : inversion jour et mois

bonsoir le forum je reprend un ancien fil pour le meme probleme , pascal dit il faut passer par cdate ? j'ai éssayé de mettre en oeuvre , mais je n'ai pas trouvé le bon code , je joint un fichier en exemple .merci pour vos aides.

 

[XanorK]

Re : inversion jour et mois

Bonsoir mariobross,

Pour ma part, j'écrirais :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)


TextBox2.Value = Format(CDate(TextBox1.Value), "dd-mmm")
Range("b4").Value = TextBox2.Value

End Sub

 

[mariobross]

Re : inversion jour et mois

xanork , le forum oui c'est ok et pour avoir l'année :

TextBox2.Value = Format(CDate(TextBox1.Value), "dd-mmm-yyyy")

merci @+