numéro de semaine par macro

[niki42]

bonjour à tous

voilà j'ai lu l'escellent post de Groussel sur les numéros de semaine (voir lien ci-joint):
Lien supprimé

mais je voudrais savoir comment faire pour 'transformer' si je puis dire cette formule et l'utiliser dans une macro de calcul de numéro de semaine:

je joins la formule:=ENT((A1-(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3)-JOURSEM(DATE(ANNEE(A1-JOURSEM(A1-1)+4);1;3))5)/7)

j'ai fait des essais mais ça bloque.


alors je compte sur vos prouesses pour me sortir de ce mauvais pas

merci d'avance pour votre aide

amicalement

 

[exfan]

je suis repassé sur le site donnant les formules...

je ne sais pas si toutes sont justes car elles me donnent un résultat parfois différents...
mais bon ta demande était d'avoir le code VB, j'ai pris une formule
qui marche:

=ENT(MOD(ENT((A1-2)/7)+0.6;52+5/28))+1

ce qui devrait donner :

mydate = Range('A1').Value2
mod_1 = 52 + 5 / 28
no_de_semaine = Int(mod_1 Mod (Int((mydate - 2) / 7) + 0.6)) + 1

pour A1= 01/01/05, j'ai 53 ce qui est faux, mais le calcul est bon il me semble (fidèle au modèle je veux dire).

il se peut que c'est l'histoire des dates / 1900 qu'il faut travailler pour avoir 1 en fait comme numéro de semaine...

je vais fouiller un peu plus...
a+

 

[niki42]

Re

Exfan merci pour ton aide

De mon côté j'ai trouvé quelque chose et apparement ça fonctionne

Merci encore