Si cette fonction n'est pas disponible tu vas dans outil/macro complémentaire/cocher "utilitaire d'analyse"
A+
Bonjour,
Est ce que quelqu'un dans ce forum connait une fonction ou une macro sous Excel afin de convertir une date en n° de semaine.
Merci de vos précieuses informations.
Franck.
Modeste
Bonsour® Franck avec ferveur ;o))) vous nous disiez :
Est ce que quelqu'un dans ce forum connait une fonction ou une macro sous Excel afin de convertir une date en n° de semaine.
1 - il y a l'aide intégrée : NO.SEMAINE NO.SEMAINE(numéro_de_série;méthode)
=NO.SEMAINE(A1;2) Numéro de la semaine dans l'année, le début de la semaine étant le lundi Renvoie le numéro d'ordre de la semaine dans l'année. Si cette fonction n'est pas disponible et renvoie la valeur d'erreur #NOM?, installez et chargez la macro complémentaire Utilitaire d'analyse.
les limites en sont connues et limitées à un usage pour un calendrier aux normes US(semaines incompletes lors du changement d'année)
2 - il y a cette formule correspondante à la norme ISO européenne : http://excelabo.net/xl/calendriers.php#numerosemaine =1+ENT(MIN(MOD(A1-DATE(ANNEE(A1)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A1)+{-1;0;1};1;3));734))7)
3 - en VBA : Function ISOWeekNum(d1 As Date) As Integer 'Daniel Maher Dim Jan03 As Long Jan03 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3) ISOWeekNum = Int((d1 - Jan03 + WeekDay(Jan03) + 5) / 7) End Function
-- -- @+ ;o)))
Bonsour® Franck avec ferveur ;o))) vous nous disiez :
Est ce que quelqu'un dans ce forum connait une fonction ou une macro sous
Excel afin de convertir une date en n° de semaine.
1 - il y a l'aide intégrée : NO.SEMAINE
NO.SEMAINE(numéro_de_série;méthode)
=NO.SEMAINE(A1;2) Numéro de la semaine dans l'année, le début de la
semaine étant le lundi
Renvoie le numéro d'ordre de la semaine dans l'année.
Si cette fonction n'est pas disponible et renvoie la valeur d'erreur #NOM?,
installez et chargez la macro complémentaire Utilitaire d'analyse.
les limites en sont connues et limitées à un usage pour un calendrier aux normes
US(semaines incompletes lors du changement d'année)
2 - il y a cette formule correspondante à la norme ISO européenne :
http://excelabo.net/xl/calendriers.php#numerosemaine
=1+ENT(MIN(MOD(A1-DATE(ANNEE(A1)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A1)+{-1;0;1};1;3));734))7)
3 - en VBA :
Function ISOWeekNum(d1 As Date) As Integer
'Daniel Maher
Dim Jan03 As Long
Jan03 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3)
ISOWeekNum = Int((d1 - Jan03 + WeekDay(Jan03) + 5) / 7)
End Function
Bonsour® Franck avec ferveur ;o))) vous nous disiez :
Est ce que quelqu'un dans ce forum connait une fonction ou une macro sous Excel afin de convertir une date en n° de semaine.
1 - il y a l'aide intégrée : NO.SEMAINE NO.SEMAINE(numéro_de_série;méthode)
=NO.SEMAINE(A1;2) Numéro de la semaine dans l'année, le début de la semaine étant le lundi Renvoie le numéro d'ordre de la semaine dans l'année. Si cette fonction n'est pas disponible et renvoie la valeur d'erreur #NOM?, installez et chargez la macro complémentaire Utilitaire d'analyse.
les limites en sont connues et limitées à un usage pour un calendrier aux normes US(semaines incompletes lors du changement d'année)
2 - il y a cette formule correspondante à la norme ISO européenne : http://excelabo.net/xl/calendriers.php#numerosemaine =1+ENT(MIN(MOD(A1-DATE(ANNEE(A1)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A1)+{-1;0;1};1;3));734))7)
3 - en VBA : Function ISOWeekNum(d1 As Date) As Integer 'Daniel Maher Dim Jan03 As Long Jan03 = DateSerial(Year(d1 - WeekDay(d1 - 1) + 4), 1, 3) ISOWeekNum = Int((d1 - Jan03 + WeekDay(Jan03) + 5) / 7) End Function
