Discussion :

[droussel]

Bonjour,
Je souhaite créer une liste déroulante automatique me reprenant les numéros de semaines d'une année (de 1 à 52 ou 53 suivant les années) et dans 2 autres colonnes afficher la date de début et de fin de chaque semaine.

J'arrive à le faire pour la 1ère semaine mais je n'arrive pas à le répéter pour toutes les semaines.

Le code pour la 1ère semaine est le suivant :

Code :

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

sem1 : PartDate("ww";SérieDate([annee];1;1);2;2)

Le code pour la date de début de semaine est le suivant :

Code :

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

date_debut_sem: (SérieDate([annee];1;1)+(([sem1]-1)*7))-((JourSem((SérieDate([annee];1;1)+(([sem1]-1)*7));2))-1)+1

Merci pour votre aide

[zoom61]

Salut,

Avec quelque chose comme cela :

Code :

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

1
2
3
4
5
Function DatSem(NumSem As Long, An As Long)
    DatDeb = DateSerial(An, 1, 4) - Weekday(DateSerial(An, 1, 4), vbMonday) + 1 + 7 * (NumSem - 1)
    DatFin = DateSerial(An, 1, 4) - Weekday(DateSerial(An, 1, 4), vbMonday) + 1 + 7 * (NumSem - 1) + 6
    MsgBox DatDeb & Chr(13) & DatFin
End Function

@+.

[droussel]

Merci mais cela ne répond pas à ma demande qui est de mettre tous les numéros de semaine dans une liste déroulante

@+

[zoom61]

Avec quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
SemMax = PartDate("ww";SérieDate([annee];12;31);2;2)
Lst = ""
For i = 1 to SemMax
	Lst = Lst & i & ", "
Next
Lst = Mid(Lst, Len(Lst) -2)
Me!MaListe.rowsource = Lst

[droussel]

Merci beaucoup