Discussion :

[tarnx]

Bonsoir à tous,

Je souhaiterais pouvoir récupérer les dates des jours (lundi à vendredi) d'une semaine dont le numéro est saisi dans une cellule.

D'après mes recherches, le problème est souvent posé dans l'autre sens, du coup, je cale.

Merci de bien vouloir me donner un petit coup de pouce

[Philippe Tulliez]

Bonsoir,
Trouvé dans mes archives.
En A2 l'année en B2 le n° de la semaine. te donne le premier jour de la semaine (lundi). Je ne sais pas si cette fonction respecte le code ISO des n° de semaine qui veut que la première semaine de l'année est la semaine qui contient au moins quatre jours.

Code :

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

=7*B2+DATE(A2;1;3)-JOURSEM(DATE(A2;1;3))-5

[casefayere]

Bonsoir,
perso, je pensai à une petite boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim choixdate As Date, i As Long, x As Integer
choixdate = CDate(1 / 1 / 2011)' à adapter avec la cellule semaine
x = 1
For i = 0 To 365' une année à 365 jours
If Application.WorksheetFunction.WeekNum(choixdate + i, 2) = Range("a1") Then
   Range("B" & x) = choixdate + i: x = x + 1'à adapter aux cellules recevant les dates
End If
Next i
End Sub

[tarnx]

La solution de corona fonctionne parfaitement. Merci à vous deux.