Numero de semaine automatique

Roland_M

XLDnaute Barbatruc

• 21 Avril 2009

• #2

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 !?

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 21 Avril 2009

• #3

Re : Numero de semaine automatique

re

ci-joint divers formules utiles !

 

Pièces jointes

• CalendrierNoSem FormulFonction.zip

  29.6 KB · Affichages: 95

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 21 Avril 2009

• #4

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

 

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 21 Avril 2009

• #5

Re : Numero de semaine automatique

oups le fichier

 

Pièces jointes

• semaines.xls

  24 KB · Affichages: 93
• semaines.xls

  24 KB · Affichages: 96
• semaines.xls

  24 KB · Affichages: 96

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 21 Avril 2009

• #6

Re : Numero de semaine automatique

re

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

 

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 21 Avril 2009

• #7

Re : Numero de semaine automatique

En effet , desolé pas vu

Merci

 

Vote positif 0 Vote négatif

C

Claude38

XLDnaute Impliqué

• 21 Avril 2009

• #8

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 21 Avril 2009

• #9

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

 

Dernière édition: 21 Avril 2009

Vote positif 0 Vote négatif

Gexk5

XLDnaute Occasionnel

• 21 Avril 2009

• #10

Re : Numero de semaine automatique

Re ;

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

Encore merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 22 Avril 2009

• #11

Re : Numero de semaine automatique

Bonjour à tous

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

Code:

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

 

Vote positif 0 Vote négatif