Date + n° semaine

starius

XLDnaute Nouveau
Bonjour,

A des fins de statistiques, j'aimerais savoir s'il est possible d'obtenir la date du premier jour de la semaine (lundi) correspondant à un numéro de semaine donné.

Exemple : on veut avoir les stats pour la semaine 28. J'aimerais déterminer quel jour commence la s28... (en l'occurence le 9/7).

Merci d'avance !!

Starius
 

JYLL

Nous a quitté
Repose en paix
Re : Date + n° semaine

Bonjour Starius, Catrice et le Forum,

Autrement voici une fonction VBA récupérée sur le Forum je pense pour calculer le numéro de la semaine à partir d'une date:

Code:
Function CLSC(Dates As Date) As Integer
Dim Semaine As Integer
Semaine = Int((Dates - DateSerial(Year(Dates), 1, 1) + _
((Weekday(DateSerial(Year(Dates), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If Semaine = 0 Then
Semaine = CLSC(DateSerial(Year(Dates) - 1, 12, 31))
ElseIf Semaine = 53 And (Weekday(DateSerial(Year(Dates), 12, 31)) - 1) _
Mod 7 <= 3 Then
Semaine = 1
End If
CLSC = Semaine
End Function

Bon test
 

Discussions similaires

Réponses
4
Affichages
809

Statistiques des forums

Discussions
312 683
Messages
2 090 910
Membres
104 693
dernier inscrit
azizou900