Discussion :

[flamel]

Bonjour,

Je souhaiterais pouvoir formater des dates en VBA et je ne trouve pas comment, sauf en créant un morceau de code.
Y a-t-il une instruction en une ligne?
Du genre: obtenir jj-mm-aa au lieu de jj/mm/aa,
Et pour les heures ne pas utiliser les ' : '.

Merci si vous pouvez m'aider.

[mercatog]

un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim dte As Date
dte = DateSerial(1986, 11, 24) + TimeSerial(11, 52, 17)
MsgBox Format(dte, "dd_mm_yyyy") 'format date
MsgBox Format(dte, "hh mm") 'format heures minutes
MsgBox Format(dte, "dd-mm-yyyy hh.mm") 'format complet

[Didier Gonard]

Bonjour,

vois ici :


Création, enregistrement et fusion de format personnalisés

et là :

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier

[flamel]

Merci mercatog .

J'ai copier-coller le code que tu me donnes, donc sans fautes, mais j'obtiens une erreur 450 suivante :

Erreur de compilation.
Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Merci ormonth pour les adresses, j'avais déjà vu, mais obtenu l'erreur.
D'où cela peut-il venir ?

J'ai Excel 2003.

Merci.

[sabzzz]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yy")

[Didier Gonard]

Je souhaiterais pouvoir formater des dates en VBA et je ne trouve pas comment, sauf en créant un morceau de code.

à quelle fin ?

sinon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Bizarroidale()
Dim dtmMadate As Date
 
dtmMadate = #4/8/2010 10:19:00 PM#
With Cells(10, 2)
   .Value = dtmMadate
   .NumberFormat = "dd-mm-yyyy hh~mm"
End With
End Sub

cordialement,

Didier