NUMÉRO DE LA SEMAINE : SANS LES BUGS DE LA SEMAINE 53 ET DU 29/12 (TESTÉ ET VÉRI

Signaler
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25113-numero-de-la-semaine-sans-les-bugs-de-la-semaine-53-et-du-29-12-teste-et-verifie

Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
61
sub
function
...
end function
end sub

ca peut pas etre imbriqué...
jodeciters
Messages postés
7
Date d'inscription
vendredi 26 décembre 2008
Statut
Membre
Dernière intervention
16 mars 2009

Bonjour
je cherche également à obtenir un numéro de semaine dans une suite de dates en colonne.
Je programme ci-dessous que j'ai trouvé à plusieurs reprises dans des forums semble est correct.

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

Mon souci est que je ne sais pas le mettre en oeuvre. Lorsque je tâche de l'exécuter, j'ai un message d'erreur du type "end sub attendu"

voici le code que j'ai tenté de faire :
Sub sen()

Function num_sem(D As Date) As Long

D = Range("A2").Value 'pour exemple A2 indique une date

num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = ((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1
End Function

End Sub

merci de votre aide
cs_orwen
Messages postés
1
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
8 octobre 2008

Merci pour le code Renfield, très utile et testé avec succès.
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
61
EBartSoft, et moi même avons également déposé des Snippets qui pourraient t'être utile