Discussion :

[gboc06]

Je cherche depuis 3 jours une fonction VB EXCEL pour déterminer une date ( Le dimanche) en fonction du numéro de semaine et de l'année. Ex Sem46 en 2007 ( Dim 11 11). Je lance donc ce défi pour une appli qui FONCTIONNE DS TOUS LES CAS! (sous VB EXCEL) Merci d'avance.

[ucfoutu]

Bonsoir;

Je n'arrive pas à la même date que toi ...

Pourquoi ?

Parce que la définition de la première semaine de l'année est paramétrable

Alors voilà comment je calculerais, en convention de mon pays :

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
  semaine = 46
  annee = 2007
  MsgBox DateAdd("d", (vbSunday - WeekDay("01/01/" & annee)) + ((semaine) * 7), "01/01/" & annee)
End Sub

[philben]

bonjour,

si on considère que la première semaine de l'année est celle à 4 jours, la méthode est la suivante sauf erreur :

Code :

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

1
2
3
4
5
6
7
 
   Dim d As Date
   Dim iAn As Integer, iSem As Integer
   iSem = 52
   iAn = 2000
   d = DateAdd("d", iSem * 7, "1/1/" & iAn) + IIf(DatePart("ww", "1/1/" & iAn, vbMonday, vbFirstFourDays) > 1, 7, 0)
   Debug.Print d + 1 - Weekday(d, vbSunday)

Exemples :
An 2000 sem 52 => dimanche = 31/12/2000
An 2000 sem 1 => dimanche = 09/01/2000

Formule simplifiable et à vérifier...

Philippe

[ucfoutu]

Oui, philben.

Nous arrivons ainsi tous deux au même résultat pour la 46ème semaine de 2007 (à savoir le 18 novembre et non, comme gobc06 , le 11 novembre...).

Bien sur... (et voilà pourquoi la convention de base est indispensable, pardi).

Amitiés

[gboc06]

Oui autant pour moi .POur la Sem46 en 2007 le dimanche tombe bien le 18 et non le 11.
Merci à ucfoutu et à philben de vous interesser à mon Pb, mais je me suis mal expliqué sans doute, je cherche une fonction GENERALE qui aprés saisie du NUMERO DE SEMAINE puis de l'ANNEE (ou récupération sur feuille de calcul) me donne une grille hebdomadaire commencant le dimanche précedent le lundi (1er jour de la Semaine).

Je reprends donc l'exemple de la Sem 46 en 2007 ce que je cherche à déterminer à TOUS LES COUPS aprés avoir saisi No de Sem et Année, c'est par exemple pour cette semaine précise ( Dim11/11, Lun 12/11, Mar13/11, Mer14/11, Jeu15/11, Vend 16/11 et Sam 17/11)
Ce srait un code ds le genre de la pièce jointe mais ce code ne fonctionne pas à tous les coups, et je ne sais pas le modifier en conséquence!
Mais je suis sur qu'il y a une fonction mathématique qui me permette de calculer cela



est-ce + clair?

Crd

[ucfoutu]

Je ne comprends pas ...

Tu veux tous les jours de la semaine concernée ?
Si tel est le cas, il te suffit d'ajouter une boucle de 0 à 7 pour ajouter 1 jour à la fois à la date obtenue comme exposé plus haut pour le 1er jour de la série.

Pour le reste : en faire une fonction : il te suffit de lui passer en argument ton année et ta semaine et de lui faire retourner un tableau (ou une liste) de 7 valeurs...

EDIT :

En d'autres termes :

une fonction reçoit des paramètres et retourne une ou des valeurs.

Je n'ai pas du tout ouvert ton document xls...

Je me contente ici de te poser la question suivante, à laquelle nous attendons une réponse précise et claire :
Quels paramètres en entrée ?
Quelle(s) valeurs en retour ?

[gboc06]

oui mas tu te base sur un cas particulier.
Moi je veux une formule generale quelque soit l'année ou le no de semaine et effectivement il s'agit bien d'une fonction et effectivement il me suffit ensuite d'une boucle pour determiner les 7 jours mais ce que je veux obtenir c'est le calcul du 1er jour, cad le lundi (debut de la semaine en fonction du numero)

[ucfoutu]

Oui ?

Et alors ?

Il me semble que tu as eu non pas une mais deux solutions...

Quel est donc ton problème ? Savoir en faire une fonction ? Si oui : plus rien à voir avec les dates en particulier mais tout avec l'apprentissage des fonctions en général ...

Bon travail et bonne étude.

[gboc06]

ucfoutu, Ta proposition de code a l'air de fonctionner! (pas celle de Phirben par contre).
Voici ma fonction et son appel, par contre je n'ai pas reussi à passer la valeur obtenue pour DateCherchee ( et en plus cela m'affiche un format style heure)
mais c'est presque ça!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub AAATest()
    DateCherchee = ucfoutu(2010, 35)
    MsgBox "DateCherchee=" & DateCherchee
End Sub
'
Function ucfoutu(ByVal Annee, ByVal NoSemaine As Integer)
'
'APPEL  comme suit    ucfoutu (2007,12)
   d = DateAdd("d", (vbSunday - WeekDay("01/01/" & Annee)) + ((NoSemaine) * 7), "01/01/" & Annee)
   MsgBox d
End Function
'

Peux-tu me dire ce qui ne va pas?

[ucfoutu]

Ouais...

C'est bien ce qui me semblait...

C'est au niveau de l'appel et de l'utilisation d'une fonction (quelle qu'elle soit) que tu as des lacunes ... et pas parce qu'il s'agit de la détermination d'une date...

Voilà comment marche ta fonction .

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
   DateCherchee = ucfoutu(2010, 35)
   MsgBox "DateCherchee=" & DateCherchee
End Sub
'
Function ucfoutu(ByVal Annee as integer, ByVal NoSemaine As Integer) As String
  ucfoutu = DateAdd("d", (vbSunday - WeekDay("01/01/" & Annee)) + ((NoSemaine) * 7), "01/01/" & Annee)
End Function

[gboc06]

oui tu as raison, je suis novice en VB je n'en avais pas fait depuis 10 ans. Mais bon ça revient!

Mais je suis DSL ta fonction est fausse, car si tu fais le test avec Sem 22 en 2007 elle te retourne 03/06/2007 alors que la bonne date est le 28/05/2007. PB donc

Code :

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

1
2
3
4
5
6
 
Function DateCherchee(ByVal Annee, ByVal NoSemaine As Integer)
'
'APPEL  comme suit    DateCherchee(2007,12)
   DateCherchee = DateAdd("d", (vbSunday - WeekDay("01/01/" & Annee)) + ((NoSemaine) * 7), "01/01/" & Annee)
End Function

[ucfoutu]

Ah...

Désolé, mais le 1er dimanche de la 22ème semaine de 2007 tombe bien, précisément, le 3 juin 2007 et non le 28 mai 2007 ...

[gboc06]

oui OK ucfoutu, mais je cherche à déterminer le dimanche précedent à la date trouvée soit le 27/05 pour la sem 22 en 2007 donc je pense qu'il faut juste corriger ta formule qui est OK. je regarde.

[gboc06]

Non, non
J'ai trouvé mon bonheur sur le net.
Il suffit de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function LUNDI(annee As Integer, NumSemaine As Integer) As Double
'
'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année "Annee"
  Dim PremierJour As Date
  PremierJour = DateSerial(annee, 1, 1)
  If WeekDay(PremierJour) = 6 Or WeekDay(PremierJour) = 7 Then
    'si le 1er janvier tombe un vendredi ou un samedi
    PremierJour = PremierJour - WeekDay(PremierJour) + 2
   Else
    PremierJour = PremierJour - WeekDay(PremierJour) - 5
  End If
  LUNDI = PremierJour + 7 * NumSemaine
End Function

Et ça marche! Merci à tous