Numero de semaine automatique

[Gexk5]

Bonjour le forum, avec des exemples trouvés sur le forum, j'ai dans un classeur determiné le lundi et vendredi ( date ) en fonction du numéro de semaine,ma question est, est il possible de deteminer automatiquement mes numéros de semaine en fonction du mois et de l'année???

Je joint mon exemple pour plus de comprehension.

Merci d'avance

 

[Roland_M]

Re : Numero de semaine automatique

bonsoir

il n'est pas possible en l'état de mettre une date en fonction d'une date
puisque tes dates sont mises en fonctions des nos de semaines !?

 

[Roland_M]

Re : Numero de semaine automatique

re

ci-joint divers formules utiles !

 

[Gexk5]

Re : Numero de semaine automatique

Re le forum
Je reposte mon exemple corrige,

Roland
il n'est pas possible en l'état de mettre une date en fonction d'une date
puisque tes dates sont mises en fonctions des nos de semaines !?


C'est le numéro de semaine que je voudrai automatique, en fonction de l'année et du mois

 

[Gexk5]

Re : Numero de semaine automatique

oups le fichier

 

[Roland_M]

Re : Numero de semaine automatique

re

tu n'as pas vu mon deuxième message !?

 

[Gexk5]

Re : Numero de semaine automatique

En effet , desolé pas vu

Merci

 

[Claude38]

Re : Numero de semaine automatique

Bonsoir,

Pour le no de semaine de la 1ère semaine du mois placer en D10 norme ISo
=ENT(MOD(ENT((DATE(H$1;MOIS(E$1&5);1)-2)/7)+0,6;52+5/28))+1

Bonne soirée

 

[Roland_M]

Re : Numero de semaine automatique

re

exemple dans la cellule D10 tu mets ceci ! (tenu compte que la date sera dessous en D11)
=ENT((D11-(DATE(ANNEE(D11-JOURSEM(D11-1)+4);1;3)-JOURSEM(DATE(ANNEE(D11-JOURSEM(D11-1)+4);1;3)))+5)/7)

cette formule est un peu plus longue mais elle est plus fiable car elle ne tient pas compte des calendriers 1900 ou 1904

 

[Gexk5]

Re : Numero de semaine automatique

Re ;

grand merci a vous Claude et Roland
C'est exactement ce qu'il me fallait

Encore merci

 

[ROGER2327]

Re : Numero de semaine automatique

Bonjour à tous

Le n° de la semaine avec une fonction en VBA :

Function NOSEM(d As Date) As Long
[COLOR="Green"]'
' Fonction ajoutée le 2/06/2004 par ROGER
' N° de la semaine dans l'année de la date D conforme à la norme ISO.
' Formules EXCEL équivalentes :
' =ENT((D-SOMME(MOD(DATE(ANNEE(D-MOD(D-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)
' =ENT((10+D-JOURSEM(D;3)-DATE(ANNEE(3+D-JOURSEM(D;3));1;4)+JOURSEM(DATE(ANNEE(3+D-JOURSEM(D;3));1;4);3))/7)

'[/COLOR]
   d = Int(d)
   NOSEM = DateSerial(Year(d + (8 - WeekDay(d, vbSunday)) Mod 7 - 3), 1, 1)
   NOSEM = ((d - NOSEM - 3 + (WeekDay(NOSEM, vbSunday) + 1) Mod 7)) \ 7 + 1
End Function

Conforme à la norme ISO.
​

Bonne journée.
ROGER2327