Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
poc
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) - 5 End If LUNDI = PremierJour + 7 * NumSemaine End Function
Cordialement Poc
"gilles" a écrit dans le message de news:
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
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
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) - 5 End If LUNDI = PremierJour + 7 * NumSemaine End Function
Cordialement Poc
"gilles" a écrit dans le message de news:
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
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) - 5 End If LUNDI = PremierJour + 7 * NumSemaine End Function
Cordialement Poc
"gilles" a écrit dans le message de news:
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
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
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) - 5 End If LUNDI = PremierJour + 7 * NumSemaine End Function
Cordialement Poc
"gilles" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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" <gilles@discussions.microsoft.com> a écrit dans le message de news:
53F4C52A-9BED-4B3A-981F-D15BD8BE55BE@microsoft.com...
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
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" a écrit dans le message de news:
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
