Discussion :

[Ska60]

Bonjour à tous (et toutes),

J'ai un petit problème à vous soumettre et je n'ai pas trouvé de solutions viable sans code complexe .
Tout (ou presque) est dans le titre:
Comment récupérer la date du 1er jour de la semaine en fonction du numéro de semaine (et bien sur de l'année concernée).
Il faut faire attention a la 1ere semaine. Dans mon cas je considéré que la 1ere semaine est celle qui contient au moins 4 jours.
Pour cette première semaine il me faut le 1er jour de cette semaine (qui peut donc être un lundi - mardi-mercredi ou Jeudi) pour les semaine suivantes il me faudrait la date du lundi correspondant!

Avez vous des suggestions?

Merci par avance

[tamtam64]

Code :

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

1
2
3
4
5
   'fonction qui recupere la fin de mois
Public Function finDeMoisdernier(ByVal d)
    d = DateSerial(Year(d), Month(d), 1)
    finDeMoisdernier = theDayBefore(d)
End Function

Il est tard mais eventuellement demain je peux t'aider, si tu cherche le dernier jour du 12 eme mois date-1 et celui de date , tu recupere la premiere semaine puis tu boucle avec un pas de 7 par exemple avec une boucle while tant que year(date) different de year(date)+1

Qu'est ce que tu en pense?

[Theze]

Bonjour,

Teste cette fonction soit depuis le VBE soit dans Excel :

Code :

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

1
2
3
4
5
6
 
Public Function DateNumSemaine(Annee As Integer, NumSem As Integer) As Date
 
    DateNumSemaine = DateSerial(Annee, 1, 1) - Weekday(DateSerial(Annee, 1, 1)) - 5 + 7 * NumSem
 
End Function

Dans le VBE de cette façon :

Code :

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

1
2
3
4
5
6
 
Sub Test()
 
    MsgBox DateNumSemaine(2015, 20)
 
End Sub

Dans Excel :

Code :

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

1
2
 
=DateNumSemaine(A1;A2)

Hervé.

[Ska60]

Merci à vous deux pour votre aide qui m'a été très précieuse.

Theze je suis parti de ta solution, mais sur certaines dates cela me posait problème (par exemple la 1ere semaine de 2016 me remontait le 28/12/2015). J'ai donc fais quelques adaptations et voici le résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 Public Function DateNumSemaine(Annee As Integer, NumSem As Integer) As Date
 
 'cas particulier de la 1ere semaine de l année qui ne commence pas le 01/01 (semaine de moins de 4 jours)
 If Format("01/01" & Annee, "ww", vbMonday, vbFirstFourDays) = 0 Then
    DateNumSemaine = DateSerial(Annee, 1, 1) - Weekday(DateSerial(Annee, 1, 1)) - 5 + 7 * (NumSem + 1)
 Else
    'Cas particulier de la 1ere semaine qui commence le 1er janvier si la semaine 1 fait plus de 4 jours.
    If NumSem = 1 Then
        DateNumSemaine = DateSerial(Annee, 1, 1)
    Else
        DateNumSemaine = DateSerial(Annee, 1, 1) - Weekday(DateSerial(Annee, 1, 1)) - 5 + 7 * NumSem
    End If
 End If
 
End Function

Merci encore

[Tierisa]

Bonjour
Attention, cela ne fonctionne pas pour 2021. on se retrouve avec une semaine de retard...

[Thumb down]

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function N°SemaineDate(N° As Integer, Année As Integer) As Date
Dim d As Date
d = DateSerial(Année, 1, 1)
j = 2 - Weekday(d)
d = DateSerial(Année, 1, 1 + j)
N°SemaineDate = DateSerial(Year(d), Month(d), Day(d) + ((N° - 1) * 7))
End Function
Sub test()
Debug.Print N°SemaineDate(1, 2021)
End Sub

[ludolato]

perso je proposerai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function DateNumSemaine(MonAnnee As Integer, NumSem As Byte) As Date
 
 'Récuperation de la date en fonction du numéro de semaine:
 
 
        If Weekday(DateSerial(MonAnnee, 1, 1)) = 1 Or Weekday(DateSerial(MonAnnee, 1, 1)) = 2 Then
            DateNumSemaine = DateSerial(MonAnnee, 1, 1) - Weekday(DateSerial(MonAnnee, 1, 1)) - 5 + 7 * NumSem
        Else
            DateNumSemaine = DateSerial(MonAnnee, 1, 1) - Weekday(DateSerial(MonAnnee, 1, 1)) - 5 + 7 * (NumSem + 1)
        End If
 
 
End Function

J'ai testé avec plusieurs années au hasard, et ça a marché à chaque coup

chance du débutant ou code correct ? je ne saurai dire

[goninph]

C'est parfait. Fonctionne à merveille. Mille merci