Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

recherche formule excel no semaine

4 réponses
Avatar
Jean-Paul ZYTA
Recherche formule de calcul numero de semaine en fonction de la date
courante

4 réponses

Avatar
Dédé
Salut Jean-Paul !! (Un salut c'est toujours plus convivial ;-)))

Pour calculer le numéro d'une semaine par rapport à une date donnée ...
voici une formule magique ;-))
Formule de Laurent longre !
=ENT((A48-SOMME(MOD(DATE(ANNEE(A48-MOD(A48-2;7)+3);1;2);{1E+99;7})*{1;-1})+5
)/7)
Formule de Laurent longre toujours ;-)
=ENT((A48-(DATE(ANNEE(A48-JOURSEM(A48-1)+4);1;3)-JOURSEM(DATE(ANNEE(A48-JOUR
SEM(A48-1)+4);1;3)))+5)/7)
Formule de Laurent Longre encore ;-))
=NoSem(A48)

Le code pour cette formule :
Function NoSem(D As Date) As Long
'L. Longre
D = Int(D)
NoSem = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)
NoSem = ((D - NoSem - 3 + (WeekDay(NoSem) + 1) Mod 7)) 7 + 1
End Function

Si t'en veux d'autre, n'ésite pas ;-))

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Jean-Paul ZYTA" a écrit dans le message de news:
8Wcob.1251$
Recherche formule de calcul numero de semaine en fonction de la date
courante




Avatar
AV
A partir d'une date, la fonction NO.SEMAINE (installer la macro complémentaire
utilitaire d'analyse) si tu te moques des normes ISO

ou ISO Europe :

Function NUMSEM_ISO_europ(cel As Range)
NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2)
End Function'av

AV
Avatar
Rodjor

Si t'en veux d'autre, n'ésite pas ;-))




Salut,
Il ne t'a déjà pas dit bonjour, il ne te répondra jamais. ;o(
A+

Avatar
Dédé
Et le pire c'est qu'il utilise même pas CDO !!


Mais bon, faut de tout pour faire un monde ;-(((

Salutations à toi Rodjor
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Rodjor" a écrit dans le message de
news:3fa23a5c$0$27016$


Si t'en veux d'autre, n'ésite pas ;-))




Salut,
Il ne t'a déjà pas dit bonjour, il ne te répondra jamais. ;o(
A+