Discussion :

[MichaSarah]

Bonjour,
J'essaye de trouver un code qui me premettrait de trouver en fonction d'un n° de semaine :
L'intervalle en date 1er - Dernier jour de cette semaine

En cherchant dans les forums j'ai trouvé le code ci dessous qui me permets de faire l'inverse, à partir d'un date trouver le n° de semaine. Mais je n'arrive pas à résoudre mon pb. Pouvez-vous m'apporter des conseils pour aboutir ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Cmd2_Click()
Annee = DatePart("yyyy", TxtDate1)
NumSem = DatePart("ww", TxtDate1, 2, 3)
TxtSemaine = "S" & Right(Annee, 2) & NumSem
End Sub

Merci par avance
MichaSarah

[tototiti2008]

Bonjour MichaSarah,

Pour répondre, il faut savoir quelle norme internationale des numéros de semaine tu souhaites utiliser.
La norme ISO considère comme 1ère semaine de l'année la 1ère semaine de 4 jours, c'est celle utilisée en France.
Ca veut dire que le 1er janvier peut se retrouver en dernière semaine de l'année précédente, ou inversement que le 31/12 de l'année précédente peut se trouver en semaine 1...

Re,

Donc sur la norme ISO, la première date d'une semaine devrait donner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function DateSemaine(NumSem As Long, NumAn As Long) As Date
    If NumSem < 53 Or (NumSem < 54 And Weekday(DateSerial(NumAn + 1, 1, 3), vbMonday) = 7) Then
        DateSemaine = DateSerial(NumAn, 1, 4) - Weekday(DateSerial(NumAn, 1, 4), vbMonday) + 1 + (NumSem - 1) * 7
    End If
End Function

et la dernière date 6 jours plus tard évidement

[Michel_M]

Bonjour,

sans VBA

n°de sem en B1
année en B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=(DATE(B2;1;1)-MOD(DATE(B2;1;-2);7)+6)+7*(B1-1)

explications:on cherche le 1° lundi de l'année DATE(B2;1;1)-MOD(DATE(B2;1;-2);7)+6 et on ajoute le nombre de semaine moins un multiplié par 7
connaissant le lundi, on trouve facilement la fin de semaine

[MichaSarah]

Bonjour,
Merci à tous pour votre aide. J'ai utilisé la solution de tototiti2008.

MichaSarah