Discussion :

[ARTETA13]

Bonjour,

Pourriez-vous m'aider svp.
Je souhaiterai une fonction qui me permette de récupérer une date ou de reconstruire la date avec:
sJour = jour de la semaine de 1 à 7
sNumSemaine = au numéro de semaine de 1 à 52 (voir 53)
sAnnée = année (ex: 2013)

Merci pour votre aide.

[Marc-L]

Bonjour,

à défaut de code, merci de nous montrer au moins l'analyse, comment le calculer manuellement ? …

[Invité]

Pas sur que ce soit ce que tu cherches:

Code :

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

1
2
3
4
5
6
7
Private Sub Test()
  Debug.Print (Format(CreationDate(2013, 9, 19), "dd/mm/yy"))
End Sub
 
Private Function CreationDate(Annee%, Mois%, Jour%) As Date
  CreationDate = CDate(Mois% & " " & Jour% & " " & Annee%)
End Function

[Invité]

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function ConverSemaineDate(sJour As Integer, sNumSemaine As Integer, sAnnée As Integer) As Date
'Pourriez-vous m'aider svp.
'Je souhaiterai une fonction qui me permette de récupérer une date ou de reconstruire la date avec:
'sJour = jour de la semaine de 1 à 7
'sNumSemaine = au numéro de semaine de 1 à 52 (voir 53)
'sAnnée = année (ex: 2013)
 
j = sNumSemaine * 7 'Je calcul le nombre de jour en fonction du dimanche de la semaine 1
d = CDate("1/1/" & sAnnée) 'Je me positionne au 01/01/ de l'année
 
Dim i As Integer
i = 0
'Je recherche le dimanche de la semaine 1
While Weekday(CDate("1/1/" & sAnnée) - i) <> 1 Or CInt(Format(CDate("1/1/" & sAnnée) - i, "w")) <> 1
DoEvents
'Debug.Print Weekday(CDate("1/1/" & sAnnée) - i) & " : " & CInt(Format(CDate("1/1/" & sAnnée) - i, "w"))
i = i + 1
Wend
 
d = CDate("1/1/" & sAnnée) - i 'Je fixe le dimanche de la semaine 1
ConverSemaineDate = d + j - 7 + sJour 'J'ajoute  le nombre de jour pour trouver le dimanche de la semaine concerné, moins 7 jour plus la valeur du jour de la semaine.
End Function
Sub test()
Debug.Print ConverSemaineDate(1, 42, 2013)
Debug.Print ConverSemaineDate(1, 42, 2012)
Debug.Print ConverSemaineDate(1, 42, 2011)
Debug.Print ConverSemaineDate(1, 42, 2010)
Debug.Print ConverSemaineDate(1, 42, 2009)
Debug.Print ConverSemaineDate(1, 42, 2008)
Debug.Print ConverSemaineDate(1, 42, 2007)
End Sub

[Invité]

Cette fonction semble suffisante:

Code :

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

1
2
3
4
5
6
7
Private Sub Test()
  Debug.Print (Format(CreationDate(2011, 42, 1), "dd/mm/yyyy"))
End Sub
 
Private Function CreationDate(Annee%, Semaine%, Jour%) As Date
  CreationDate = 7 * Semaine% + CDate("3/1/" & Annee%) - Weekday(CDate("3/1/" & Annee%)) - 5 + Jour% - 1
End Function

[Invité]

je trouve 10/10/2011 pour 2011 ce qui est une erreur!

Cette fonction semble suffisante:

Code :

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

1
2
3
4
5
6
7
Private Sub Test()
  Debug.Print (Format(CreationDate(2011, 42, 1), "dd/mm/yyyy"))
End Sub
 
Private Function CreationDate(Annee%, Semaine%, Jour%) As Date
  CreationDate = 7 * Semaine% + CDate("3/1/" & Annee%) - Weekday(CDate("3/1/" & Annee%)) - 5 + Jour% - 1
End Function

Je me la garde en réserve

[ARTETA13]

Merci à tous.

J'ai réussi à résoudre mon problème.

[nibledispo]

Bonjour,

Peut-on m'expliquer la formule ?

Pourquoi 3/1/......

Partant de celle-ci, j'ai fabriqué cette autre qui semble donner le résultat

Code :

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

1
2
 
CreationDate = CDate("1/1/" & 2011) + (semaine%*7) + Jour% - 6

- CDate("1/1/" & 2011) me donne le nombre correspondant au premier jour de l'année.
- (semaine%*7) ajoute le nombre de jour écoulé depuis le début de l'année
- jour% ajoute le nombre de jour de la dernière semaine.

Mais pourquoi faut-il enlever 6 ou 5 selon la formule ?

Je comprend bien la différence entre 6 et 5 qui provient de ce que dans ma formule le premier jour de l'année est pris en compte mais ne comprend pas le pourquoi de ce retrait qu'il soit 5 ou 6.

Cordialement.

[Invité]

Un tentative d'explication en suivant la norme ISO 8601:

Dans Excel:
en A1 le jour (de 1 à 7)
en A2 la semaine de (1 à 53)
en A3 l'année

Alors la formule (adaptée à la France) devient:

Code :

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

=7*(B2-1)+DATE(B3;1;4)-JOURSEM(DATE(B3;1;4);2)+1+B1-1

Pourquoi la date du 4 janvier ? Parce que le 4 janvier est toujours contenu dans la semaine n°1.

La logique est donc de partir du 4 janvier, de chercher le lundi de cette même semaine d’où le JOURSEM() et d'y ajouter le nombre de semaine et le nombre de jours pour obtenir la date voulue.

Voila j'espère que c'est clair.

[nibledispo]

Bonjour,

Merci pour l'explication que je vais analyser.
Je vais dans le même temps m'assurer avec de multiples essais que ma formule simplifiée -et peut-être simpliste- est valable dans tous les cas de figure.

Cordialement.

[Invité]

Bonjour,

Merci pour l'explication que je vais analyser.
Je vais dans le même temps m'assurer avec de multiples essais que ma formule simplifiée -et peut-être simpliste- est valable dans tous les cas de figure.

Cordialement.

Par exemple:

Année: 2014
Semaine: 1
Jour: 1

Ta solution donne : 03/01/2014
Ma solution donne: 30/12/2013

Et donc ta formule est fausse.

[nibledispo]

Bonjour Vcottineau,

Effectivement ma formule était trop simple pour être valable dans tous les cas de figure. Le début d'année est toujours délicat à négocier après un réveillon bien arrosé même pour les formules.

Je pense avoir compris ta formulation mais elle me semble difficile à retenir.

Cordialement.