Discussion :

[shinta]

Bonjour.
J'aimerai savoir si il est possible de connaitre la liste des date qui compose une semaine donnée.

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DatesJourSemaine()
Dim TabDate(7)
    DateDébut = InputBox("Saisir la date au format jj/mm/aaaa", "", "26/06/2006")
    TabDate(1) = DateDébut
    For i = 1 To 6
        TabDate(i + 1) = Format(CDate(DateDébut) + i, "dd/mm/yy")
    Next
 
    'Contrôle
    For i = 1 To 7
        MsgBox TabDate(i)
    Next
End Sub

Mais précise ta demande, je ne crois pas avoir répondu à ta question

Regarde aussi datepart, dans l'aide

A+

[shinta]

je vais regarder ca merci

[shinta]

En fait datepart ne donne pas ce que je souhaite (ou alors alors j'ai rien compris) et ton code non plus (même si au pire je dois pouvoir modifier l'appli pour faire avec).

Ce que je souhaite, c'est que a partir d'un numéro de semaine passé en paramètre, la fonction me ressorte la liste des date de cette semaine.
Par exemple, si je lui passe 24, elle me retournerai 12/06/2006, 13/06/2006, 14/06/2006, 15/06/2006, 16/06,2006, 17/06/2006 et 18/06/2006. (en supposant que par défaut on travaille sur l'année en cours)

[jmfmarques]

Shinta veut quelque chose ressemblant à ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
  alala = DateValue("01/01/2006")
  coucou = WeekDay(alala) ' on détermine ici quel jour de la semaine était le 01/01/2006
  toto = 2 ' ici le numéro de la semaine concernée - le jour 1 de la semaine étant un dimanche
  dep = ((toto) * 7)
  If coucou > 1 Then dep = dep + coucou
  For i = 0 To 6
    MsgBox alala + dep + i
  Next
End Sub

pas affiné !


EDIT :
J'ai édité et affiné avec ces conventions là (car c'est une question de conventions) :
- la 1ère semaine commence le 1er dimanche d'une année, le samedi et les jours précédents étant des jours de la dernière semaine de l'année précédente.
Si une autre convention que celle-ci est retenue, il suffit de modifier le code en conséquence.

[jmfmarques]

Je ne modifie alors que le traitement de coucou !