Récupérer le numéro de série d'une date dans le code VBA

[natorp]

Bjr à toutes et tous

J'écris cette ligne de code qui fonctionne :

Cells(Lign, 4).FormulaLocal = "=NB.JOURS.OUVRES(" & Cells(Lign, 2).Value & ";" & Cells(Lign, 3).Value & ";FériésetATT)"

La formule me récupère la valeur des cellules concernées contenant des dates, sauf qu'il me faudrait le numéro de série des dates et non pas les dates elles-mêmes, du coup je n'ai pas le résultat attendu

merci de votre aide, cordialement, Gérard

 

[PrinceCorwin]

Re : Récupérer le numéro de série d'une date dans le code VBA

Bonjour natorp,

As-tu essayé avec la fonction Format ?
Comme ceci :

Format(Cells(Lign, 2).Value ;"00000")

Bonne continuation

 

[Fred0o]

Re : Récupérer le numéro de série d'une date dans le code VBA

Bonjour natorp,

Peux-tu préciser ton besoin STP ?

Pour EXCEL, un n° de série et une date sont la même chose, ce n'est qu'une question de format.

A défaut d'autre explication, peux-tu essayer de mettre ta cellule "Cells(Lign, 4)" au format Nombre sans décimales.

A+

 

[Pierrot93]

Re : Récupérer le numéro de série d'une date dans le code VBA

Bonjour,

regarde la propriété "value2" :

MsgBox Cells(1, 1).Value2

bon après midi
@+

 

[natorp]

Re : Récupérer le numéro de série d'une date dans le code VBA

Merci à vous

La solution de Pierrot fonctionne à merveille, bonne fin d'après-midi

Gérard