Discussion :

[fab44]

salut,
J'aurai souhaité créer un calendrier bien spécial. En effet, dans un controle style zone de liste modifiable j'aurai voulu avoir les N° de semaine de l'année (jusque là ça va), ensuite je voudrait que mon calendrier avec le numéro de semaine renvoie la première date de la semaine c'est à dire la date du lundi.Là ça se complique car, je voudrait que ce calendrier soit valide d'une année a l'autre donc je veux que les dates ne soient pas saisies manuellement dans une table j'aimerai qu'elles soient mises a jour dynamiquement.
Ma question est : est-il possible de réaliser queleque chose comme ça? Et si oui quelle est la démarche à suivre (du moins une petite piste...)
Merci d'avance..

[Tofalu]

Je me demande si il y a pas une petite fonction pour faire ça directement.
Sinon, tu pars du premier janvier. une semaine, c'est 7 jours, donc avec une date de référence et numéro de semaine, tu retrouves la date

[fab44]

Oui en partant de là je vais essayer de faire quelque chose mais sachant que l'utilisateur devra séléctionner le n° de semaine pour qu'une date soit renvoyée ça risque d'être compliqué.
Merci en tout cas pour ton aide.

[Tofalu]

Tiens, je viens de taper ça vite fait, mais j'ai pas fait beaucoup de test.
Essaye de l'utiliser et tient moi au courant.

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
 
Public Function date_semaine(semaine As Integer, an As Integer) As Date
Dim base As Integer
Dim n As Integer
Dim d As Date
base = Premier_jour(an)
d = DateSerial(an, 1, 1)
d = DateAdd("d", 2 - base, d)
n = (semaine - 1) * 7
d = DateAdd("d", n, d)
date_semaine = d
End Function
Public Function Premier_jour(an As Integer) As Integer
'premier janvier2000: samedi
Dim i As Integer
Dim s As Integer
For i = 2000 To an - 1
s = s + 365
If ((i Mod 4 = 0) And (i Mod 100 <> 0)) Or (i Mod 400 = 0) Then s = s + 1
Next i
s = s Mod 7
Premier_jour = s
End Function

[FRED.G]

fab44,

Si ton sujet est résolu, ce serait utile de le signaler par un message en plus tag
En même temps, un petit merci au passage à celui qui t'a aidé serait aussi un geste sympa...

Non ?

[stigma]

Comme il est parti, je te remercie pour lui.

Merci Tofalu, j'avais besoin de ça et ton code m'a bien dépanné.

[ylabarre]

Merci pour le bout de code. ça m'a bien dépanné aussi. Quasiment 5 ans aprés ...