récupération numéro de semaine

[mariobross]

Bonjour , comment faire pour récupérer le numéro de semaine d'une date : ex : le 06/01/2010 c'est la semaine 1
merci pour vos réponses.

 

[joss56]

Re : récupération numéro de semaine

Bonsoir

Comme suit:
=ENT((A1-SOMME(MOD(DATE(ANNEE(A1-MOD(A1-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)

Ou A1 stocke la date dont on cherche à déterminer le n° de semaine.

Bonne soirée

Jocelyn

 

[Etienne2323]

Re : récupération numéro de semaine

Salut Mario,
vous pouvez essayer cette formule. Je suis sur Excel 2007 par contre. Je ne sais pas si la fonction est disponible sur 2003 ou précédent.

=NO.SEMAINE("Votre date")

Bonne continuité,

Étienne

 

[joss56]

Re : récupération numéro de semaine

Bonsoir Etienne

Oui exact, mais paraît qu'il y a un pb avec. Je crois qu'avec cette fonction la semaine 1 démarre toujours au 1er janvier de l'année, ce qui n'est pas toujours le cas...

 

[CBernardT]

Re : récupération numéro de semaine

Bonsoir,

Une autre formule :

=Weeknum(A1;2)

 

[mariobross]

Re : récupération numéro de semaine

quelle réactivité , cela faisait longtemps que j'avais pas posté et ça fait plaisir de voir ça , je vous remerci tous.

 

[Mais Coudonc]

Re : récupération numéro de semaine

Bonjour,
Serait-ce trop vous demander de publier la même formule pouvant déboucher sur le numéro du mois plutôt que de la semaine ?

Merci !

 

[Etienne2323]

Re : récupération numéro de semaine

Bonsoir le fil,

@ Joss : Merci du renseignement. J'ignorais complètment ce fait.

@ au fil : Sans vouloir m'aventurer trop loin, je crois que le fonction num.semaine qui se trouve dans le pack complémentaire "Morefunc" fait le travail.

Je ne veux pas faire de publicité pour un autre forum mais il est possible de télécharger "MoreFunc" à partir de l'adresse suivante :

Télécharger MOREFUNC (Macro complémentaire EXCEL) (gratuit)

Au plaisir,

Étienne

 

[Etienne2323]

Re : récupération numéro de semaine

Rebonsoir le fil,

@ Mais Coudonc : Vous pouvez récupérer le numéro du mois de cette manière : =Mois("Votre date")

Cordialement,

Étienne

 

[ROGER2327]

Re : récupération numéro de semaine

Bonsoir à tous

Une fonction personnalisée pour convertir une date grégorienne en date ISO :

[COLOR=DarkSlateGray][B]Function ISO(r, Optional x As Boolean = False) [COLOR=DarkOrange]'Transcription ISO d'une date grégorienne.[COLOR=DarkSlateGray]
Application.Volatile
Dim d2&, d3&, d4&
  r = CDate(r)
  d2 = r + 1 - Weekday(r, vbMonday)
  d3 = DateSerial(Year(d2 + 3), 1, 1)
  d4 = d3 + 1 - Weekday(d3, vbMonday) - (Weekday(d3, vbMonday) > 4) * 7
  ISO = Year(d3) & "-W" & Format((d2 - d4) \ 7 + 1, "00") & IIf(x, "", "-" & Weekday(r, vbMonday))
End Function[/COLOR][/COLOR][/B][/COLOR]

Si 6/01/2010 est en A1, =iso(A1) (ou =iso(A1;0)) renvoie 2010-W01-3 (troisième jour de la première semaine de 2010).
Si on ne veut pas le jour, écrire =iso(A1;1) renvoie 2010-W01.
​

ROGER2327
#4542

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T21:57:12Z