date du lundi en fonction du N° de semaine

Le
gilles
Bonjour à tous,
Quelqu'un sait-il s'il existe une formule ou fonction pour trouver la date
du lundi d'un n° de semaine ?
Merci
--
gilles72
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
poc
Le #5385941
Sur le fabuleux site Excelabo, j'ai trouvé cette fonction faite par B Mazas.

Function LUNDI(annee As Integer, NumSemaine As Integer) As Double
'mpfe B Mazas
'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année
"Annee"

Dim PremierJour As Date

PremierJour = DateSerial(annee, 1, 1)
If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then
'si le 1er janvier tombe un vendredi ou un samedi

PremierJour = PremierJour - Weekday(PremierJour) + 2
Else

PremierJour = PremierJour - Weekday(PremierJour) - 5
End If
LUNDI = PremierJour + 7 * NumSemaine
End Function

Cordialement
Poc

"gilles"
Bonjour à tous,
Quelqu'un sait-il s'il existe une formule ou fonction pour trouver la date
du lundi d'un n° de semaine ?
Merci
--
gilles72


gilles
Le #5385931
Merci poc
j'essaie ça
à+
--
gilles72



Sur le fabuleux site Excelabo, j'ai trouvé cette fonction faite par B Mazas.

Function LUNDI(annee As Integer, NumSemaine As Integer) As Double
'mpfe B Mazas
'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année
"Annee"

Dim PremierJour As Date

PremierJour = DateSerial(annee, 1, 1)
If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then
'si le 1er janvier tombe un vendredi ou un samedi

PremierJour = PremierJour - Weekday(PremierJour) + 2
Else

PremierJour = PremierJour - Weekday(PremierJour) - 5
End If
LUNDI = PremierJour + 7 * NumSemaine
End Function

Cordialement
Poc

"gilles"
Bonjour à tous,
Quelqu'un sait-il s'il existe une formule ou fonction pour trouver la date
du lundi d'un n° de semaine ?
Merci
--
gilles72







poc
Le #5385921
J'ai trouvé ça aussi si vous mettez le numéro de semaine en A1
=7*A1+DATE(ANNEE(AUJOURDHUI());1;1)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1))-5
également trouvé sur le site Excelabo, Maitre d'oeuvre de ce calcul L.Longre
Cordialement
Poc
"gilles"
Bonjour à tous,
Quelqu'un sait-il s'il existe une formule ou fonction pour trouver la date
du lundi d'un n° de semaine ?
Merci
--
gilles72


Publicité
Poster une réponse
Anonyme