Discussion :

[devvba]

bonjour,


la formule suivante : =ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

donnée SilkyRoad par dans le FAQ

Est-elle bien être traduite de la manière suivante ?

Code :

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

1
2
3
4
5
dim d as date
 
d = Range("A1")
 
h = (((Int((d - 2) / 7) + 0.6) - (52 + 5 / 28) * Int((Int((d - 2) / 7) + 0.6) / (52 + 5 / 28))) + 1)

Je ne suis pas sur de moi car je n'ai pas retranscrit le premier ENT, j'ai juste modifié la déclaration de la variable d en date pour obtenir le même résultat. Mais je suis pas sûr de moi. Pensez-vous que cette formule est correcte?
merci pour vos réponse et bonne soirée.

[SilkyRoad]

bonsoir


Dans ce cas, tu pourrais utiliser la méthode Evaluate :

Code :

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

MsgBox Evaluate("=INT(MOD(INT((A1-2)/7)+0.6,52+5/28))+1")

bonne soirée
michel

[devvba]

Merci SilkyRoad pour votre réponse, en effet cette solution marche. De plus, elle est plus courte et surement plus sûr. Merci infiniment pour votre rapidité et la justesse de vos réponse.

Bonne soirée