Discussion :

[la belette]

bonjour le forum,

Pour faire une feuille d'heure, je voudrais créer une macro qui me permet suivant la semaine, en l'occurence 24 pour cette semaine, de m'insérer les dates de fin et de début de semaine (lundi et dimanche).

N'ayant aucune idée sur le sujet je m'en remet à votre savoir....
A vrai dire je sais même pas si c'est possible

[ucfoutu]

Bonjour,

utilise Weekday pour déterminer quel jour de la semaine tombe le 1er janvier de l'année considéré.
Une fois ce jour de la semaine connu ==>> calcule (exemples sur ce forum)la date d0 du 1er jour de la semaine dans laquelle se trouve se 1er janvier
Utilise ensuite dateadd :

Code :

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

dateadd("ww",ton_n0_de_semaine, d0)

pour avoir le 1er jour de la semaine dont tu donnes le numéro.

[la belette]

pourrais tu me donner le lien vers le forum dont tu me parles parce que là j'ai rien.... et j'en suis justement à me demander comment on calcul la date d0 de la semaine 1...

donc ça m'aiderai... Merci.

[fring]

Bonjour tlm,

Ceci devrait faire ton bonheur

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
Sub test()
 
Annee = Format(Date, "yyyy") '<-- année en cours
NumSem = Format(Date, "ww") '<-- n° semaine en cours
 
d = DateSerial(Annee, 1, 1) '<-- 1er jour de l'année
d = DateAdd("d", 1 - Weekday(d, vbMonday), d) '<-- 1er jour de la 1ère semaine de l'année
 
Lund = DateAdd("ww", NumSem - 1, d) '<-- date lundi semaine en cours
Vend = DateAdd("ww", NumSem - 1, d) + 4 '<-- date vendredi semaine en cours
 
MsgBox "nous sommes la semaine " & NumSem & Chr(10) _
    & "du lundi " & Lund & Chr(10) _
    & "au vendredi " & Vend
 
End Sub

[la belette]

Merci Fring ça fonctionne mais dans les cellules dans lesquelles doivent s'inscrire la date du lundi et celle du dimanche j'ai des ### qui s'affiche et pourtant quand je clic sur les cellules c'est bien la date qui est inscrite dans la barre de fonction... quand j'essaie de changer le format de la date via "format/cellule..." ça ne fonctionne pas t'as un remède pour ça?

[la belette]

Pour info pour ceux que ça intéresserai j'ai modifier le code afin que la semaine ne soit pas donner par le système: NumSem = Format(Date, "ww") '<-- n° semaine en cours

mais par moi: NumSem = semainebox.Value

et ça fonctionne sans problème !

[fring]

2 aspirines, un soupçon de zest de citron vert, quelques gouttes d'hydromel et laisser macérer le tout quelques secondes.

Pendant que ça macère tu peux essayer d'ajuster la largeur de tes colonnes

[la belette]

euh ben oui effectivement je suis un peu blonde...

En tout cas merci à vous encore un problème résolu !