Pb de format date

[Gix]

Bonsoir le forum,

J'ai un problème de format de date qui s'effectue à l'envers.
Je joins un fichier avec plus d'explications.
Pourrait-on m'en dire plus sur ce problème?
Merci par avance.

Gix. [file name=FormatDate.zip size=24309]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FormatDate.zip[/file]

 

[JeanMarie]

Bonsoir

Remplace ces deux lignes dans la sub CommandButton1_Click()

Sheets('Archive Fc').Range('F' & LigneSel) = DateFacBox.Value
Sheets('Archive Fc').Range('G' & LigneSel) = DateFacPaiementBox.Value

par

Sheets('Archive Fc').Range('F' & LigneSel) = Format(DateFacBox.Value, 'dd/mm/yy')
Sheets('Archive Fc').Range('G' & LigneSel) = Format(DateFacPaiementBox.Value, 'dd/mm/yy')

Dans VBA, les dates sont au format anglais.

@+Jean-Marie

 

[Bebere]

bonjour à tous
j'ai essayé les lignes de jeanMarie
ne va pas chez moi (excel200)
les lignes suivantes sont ok
Sheets('Archive Fc').Range('F' & LigneSel) =
CDate(FormatDateTime(DateFacBox.Value, vbGeneralDate))

Sheets('Archive Fc').Range('G' & LigneSel) =
CDate(FormatDateTime(DateFacPaiementBox.Value, vbGeneralDate))

à bientôt

 

[Gix]

Rebonsoir , JeanMarie Bebere

Merci de vos réponses j'ai essayé vos codes ils marchent pas.
Que faire ?
Win xp pro office 2003

Merci Gix

 

[Gix]

Rebonsoir

Flûte, Désolé Bebere
j'ai mal testé ton code ça marche, c'est génial !

Merci A + Gix

 

[myDearFriend!]

Bonsoir le Gix, Jean-Marie, Bebere, le Forum.

Pour ma part, j'aurais conseillé tout simplement :

            Sheets('Archive Fc').Range('F' & LigneSel) = CDate(DateFacBox.Value)
            Sheets('Archive Fc').Range('G' & LigneSel) = CDate(DateFacPaiementBox.Value)

Cordialement,

Message édité par: myDearFriend!, à: 20/06/2005 00:50

 

[Gix]

Bonsoir Jean Marie, Bebere, Didier et le forum
Je te remercie un peu tardivement Didier , ton code me satisfait également.( ça marche nickel )

Merci à tous , bonne soirée et à bientôt.

Gix.