Date numérique dans VBA

[pattedechien]

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]

Re : Date numérique dans VBA

Bonjour,

Mets tes cellules aux format nombre ou standard!

A+

 

[CHALET53]

Re : Date numérique dans VBA

Bonjour,

ça doit le faire

Format((Date), "00000")

a+

 

[Robert]

Re : Date numérique dans VBA

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

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

 

[Gorfael]

Re : Date numérique dans VBA

Salut pattedechien et le forum
Les deux méthodes données par Hasco en 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]

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.