Pb de format date

JeanMarie

XLDnaute Barbatruc

• 19 Juin 2005

• #2

Bonsoir

Remplace ces deux lignes dans la sub CommandButton1_Click()

Code:

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

par

Code:

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juin 2005

• #3

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

 

Vote positif 0 Vote négatif

Gix

XLDnaute Occasionnel

• 19 Juin 2005

• #4

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

 

Vote positif 0 Vote négatif

Gix

XLDnaute Occasionnel

• 20 Juin 2005

• #5

Rebonsoir

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

Merci A + Gix

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 20 Juin 2005

• #6

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)

Cliquez pour agrandir...

Cordialement,

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

 

Vote positif 0 Vote négatif

Gix

XLDnaute Occasionnel

• 20 Juin 2005

• #7

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.

 

Vote positif 0 Vote négatif