[klm]

Salut a tous! je vous explique mon probleme, j'ai besoin d'utiliser la fonction NO.SEMAINE pour une entreprise ou je fait mon stage,
la bas pas de souci pour l'installation
outils -> macro complementaire
et ca roule!

mais chez moi impossible de l'installer sachant que je n'ai pas le cd EXCEL, y a-t-il un endroit ou je pourrais telecharger la fonction?
ou par un autre moyen?

j'utilise Excel 2003, merci d'avance c'est trés important !!!

[Monique]

Bonjour,

La fonction No.Semaine() ne renvoie pas le n° de semaine selon la norme européenne.

Tu peux laisser tomber et essayer cette formule
avec une date en C2 :
=ENT(MOD(ENT((C2-2)/7)+0,6;52+5/28))+1
(calendrier 1900 seulement)

Que soit ou non cochée l'option "Calendrier depuis 1904" :
=ENT(MOD(ENT((C2-2+(JOUR(1)=2)*6)/7)+0,6+((JOUR(1)=2)*208);52+5/28))+1

[klm]

ok merci si ca peu remplacer pourquoi pas, mais quel est le pb ac NO.SEMAINE? je m'en suis servi et elle fonctioné parfaitement non?

merci d'avance

[Monique]

Re,

Si le premier jeudi de l'année tombe après le 4 janvier, la fonction NO.SEMAINE donnera un résultat faux pour les Européens.

En Europe, la semaine n° 1 "doit" comporter au moins 4 jours.
La semaine du premier janvier a donc le n° 1 si le premier est soit un lundi, soit un mardi, soit un mercredi soit un jeudi.

Cette année et en 2009, ça va.
En 2010, 2011, 2012, la fonction No.Semaine ne donne pas le bon résultat

[JCGL]

Bonjour à tous,

La norme européenne dont parle Monique dit que la première semaine de l'année est celle qui comporte un Jeudi.
Ce que ne fait pas la fonction NO.SEMAINE().

Et comme tu n'as plus le CD d'Installation MSOffice, Monique te donne des formules qui ne nécessitent pas de monter la Macro Complémentaire "Utilitaire d'Analyse", nécessaire à NO.SEMAINE() entre autres

A+

Edition : Oups, Collision avec Monique

[klm]

impec ca fonctionne sans pb meme si j'avoue que je n'y comprend pas grand chose a cette fonction.....
merci!

[Pajeclo]

J'essai moi aussi pour voir ce que ça donne.
Merci d'avance pour la formule

[Pajeclo]

ça ne fonctionne pas correctement je suis obligé de faire: =( la formule)-2.
Est ce normal?

Merci pour des precisions.

[chris]

Bonjour
Non ce n'est pas normal : vérifies bien ta formule et tes dates.

[MJ13]

Bonjour à tous

J'avais trouvé sur le net une formule pour avoir le numéro de semaine:en colonne 1 on met la formule et en colonne 2 la date.

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

Par contre je ne sais pas si elle correspond à la norme Européenne.

[JCGL]

Bonjour à tous,
Salut Chris,

Pajeclo : pense aussi à remplacer le séparateur décimal du 0,6 en 0.6 pour avoir :

=ENT(MOD(ENT((C2-2)/7)+0.6;52+5/28))+1

A+

[RENAUDER]

Bonjour,
Puisqu'on est en plein dans NO.SEMAINE voici quelques fonctions aussi très utiles

Function NOSEM(D As Date) As Long
   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

Public Function NumSemaine(D As Date)
Dim t As Long
  t = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
  NumSemaine = ((D - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1
End Function

[abcd]

Bonjour,

La norme ISO (européenne) a quand même un petit problème.
Dans une même année on peut avoir deux semaines 52.
Exemple : le 01.01.2006 et le 31.12.2006

Donc il y a erreur lors d'un calcul (par exmple la somme des valeurs par semaine).
C'est pourquoi je préfère la formule :
=NO.SEMAINE($A1;2)-(JOURSEM(DATE(ANNEE(A1);1;4);2)<4)*1
qui renvoie 0 comme n° de semaine en début d'année si la norme ISO renvoie 52

abcd

[Roland_M]

bonjour
en vb
Dim FormatDATE as Date
FormatDATE= "01/01/2008"
NoJourSem = DatePart("ww", FormatDATE, vbMonday, vbFirstFourDays)