Date numérique dans VBA

pattedechien · 16 Août 2011

Bonjour,
J'aimerais svoir comment on transforme une date de type DD/MM/YYYY en valeur numérique du type "43652".
Pour commencer, je définis mes variables

debut_num = Worksheets("Saisie des consommations").Range("H11").Value
fin_num = Worksheets("Saisie des consommations").Range("H13").Value

Les cellules H11 et H13 sont en format dd/mm/yyyy
Ensuite, je valide en cliquant sur un bouton pour lancer la macro.

Worksheets("Factures").Range("j" & L).Value = fin_num
Worksheets("Factures").Range("k" & L).Value = debut_num

J'aimerais que dans mes cellules "j"& L et "k"& L de ma feuille, cela soit écrit en numérique (type 43652).

Merci.

Guest · 16 Août 2011

Re : Date numérique dans VBA

Bonjour,

Mets tes cellules aux format nombre ou standard!

A+

CHALET53 · 16 Août 2011

Re : Date numérique dans VBA

Bonjour,

ça doit le faire

Format((Date), "00000")

a+

Robert · 16 Août 2011

Re : Date numérique dans VBA

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Code:

Worksheets("Factures").Range("j" & L).Value = CInt(fin_num)
Worksheets("Factures").Range("k" & L).Value = CInt(debut_num)

Gorfael · 16 Août 2011

Re : Date numérique dans VBA

Salut pattedechien et le forum
Les deux méthodes données par Hasco en code :

Code:

Worksheets("Factures").Range("j" & L).Value = fin_num
Worksheets("Factures").Range("j" & L).NumberFormat = "General"
              Worksheets("Factures").Range("k" & L).Value = debut_num
Worksheets("Factures").Range("k" & L).NumberFormat = "0"

A+

pattedechien · 16 Août 2011

Re : Date numérique dans VBA

Merci à vous tous.

J'ai donc mis met date en format numérique et précisé le format FORMAT(Date). Cela fonctionne parfaitement.

Bonne fin de journée.

Date numérique dans VBA

pattedechien

XLDnaute Nouveau

Guest

Guest

CHALET53

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

pattedechien

XLDnaute Nouveau

Discussions similaires