XL 2016 Trouver le premier jour de la semaine selon le mois

[Rabeto]

Bonjour,

J'ai besoin de votre aide svp,
J'ai un mois dans une cellule, ex : Septembre.
A partir de ce mois, j'aimerai trouver le Lundi de la première semaine du mois,
Ex : Septembre 2021 : la date du lundi de la première semaine c'est le 30/09, c'est ce que je souhaite avoir.

Merci,

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[Lolote83]

Bonjour,
Pas sur d'avoir tout compris.
Pour moi, le premier Lundi de Septembre 2021 est le 06/09/2021 et non le 30/09 comme tu le cites
@+ Lolote83

 

[Lolote83]

Re bonjour,
Exemple :
En A1 = Septembre
En A2 = DATEVAL("01/" & A1 & "/2021") te donnera donc le 01/09/2021
En A3 = A2+6-MOD(A2+4;7) te donnera donc le 06/09/2021 (soit le 1er lundi du mois de septembre 2021)
@+ Lolote83

 

[Dudu2]

Bonjour,

Pas sur d'avoir tout compris.

Pareil !

 

[Lolote83]

Re bonjour,
Je viens de voir le fichier de JHA, et effectivement, j'ai mieux compris la demande.
Bravo à toi JHA, je penses que tu es dans le VRAI.
@+ Lolote83

 

[Rabeto]

Bonjour,
Pas sur d'avoir tout compris.
Pour moi, le premier Lundi de Septembre 2021 est le 06/09/2021 et non le 30/09 comme tu le cites
@+ Lolote83

Non, "A partir de ce mois, j'aimerai trouver le Lundi de la première semaine du mois,"

 

[Victor21]

Bonjour à tous.
Une autre interprétation de la 1° semaine d'un mois :
La première semaine du mois est celle qui contient au moins 4 jours de ce mois.

 

[Rabeto]

Bonjour à tous,

A essayer

JHA

Bonjour JHA,
Merci, Oui ça donne bien le premier lundi de la première semaine début de Septembre.
Il y a une chose que je ne comprends pas, pourquoi lorsque je mets la formule =No.semaine() ça me donne un numero de semaine différent de ce que tu as trouvé.
La semaine du 1er Septembre c'est la semaine 36 alors que sur ton fichier ça donne 35

 

[JHA]

Bonjour à tous,

A essayer

=NO.SEMAINE(DATE($B$6;MOIS(1&$A$6);1);21)

Fonction NO.SEMAINE - Support Microsoft

Renvoie le numéro de semaine d’une date spécifique. Par exemple, la semaine contenant le 1er janvier est la première semaine de l’année ; elle est numérotée semaine 1.

support.microsoft.com

JHA

 

[Rabeto]

Bonjour à tous.
Une autre interprétation de la 1° semaine d'un mois :
La première semaine du mois est celle qui contient au moins 4 jours de ce mois.

Bonjour Victor21,

Nickel, c'est ce que je voulais, merci

 

[GALOUGALOU]

re le fil bonjour le forum

dans le message de Rabeto

La semaine du 1er Septembre c'est la semaine 36 alors que sur ton fichier ça donne 35

juste pour info, car le besoin est peut-être différent de la norme évoquée ci-dessous.

Et pourtant en 2021 selon la norme iso la semaine commençant le 30 aout 2021 est bien la semaine 35.

un extrait de wikipédia
Le système (norme iso) est principalement utilisé par les gouvernements et entreprises pour baser également les années comptables et fiscales et la planification de projets à cycles hebdomadaires de travail, ainsi que pour le paiement des salaires ou des loyers (quand ceux-ci sont versés hebdomadairement).

cdt
galougalou

 

[patricktoulon]

re
bonjour
beaucoup ne font pas encore la différence en semaine N°X de l'année et semaine N°X du mois

la première semaine du mois au norme iso ne commence pas forcement le 1er du mois

donc ne pas confondre
le lundi de la semaine du 1er du mois
etl
le lundi de la 1ere semaine du mois

Dim mois&, an&, dat As Date, j&
Sub test() 'le lundi de la semaine du 1er du mois
mois = 9
an = 2021
dat = DateSerial(an, mois, 1)
j = Weekday(dat, vbUseSystemDayOfWeek)
If j <> 1 Then dat = dat - Weekday(dat, vbUseSystemDayOfWeek) + 1
MsgBox dat
End Sub

Sub test2() ' le premier lundi du mois ( ou de la première semaine du mois )
mois = 9
an = 2021
dat = DateSerial(an, mois, 7)
j = Weekday(dat, vbUseSystemDayOfWeek)
If j <> 1 Then dat = dat - Weekday(dat, vbUseSystemDayOfWeek) + 1
MsgBox dat
End Sub