Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 !
"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
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
!
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 !
Salut, Il ne t'a déjà pas dit bonjour, il ne te répondra jamais. ;o( A+
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)
"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+
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" <nospam@nospam.fr> a écrit dans le message de
news:3fa23a5c$0$27016$626a54ce@news.free.fr...
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+
-- 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)