Discussion :

[wacly]

Bonjour à tous

Je débute sous VBA et j'ai trouvé un code dans la FAQ ici qui permet de donner la date du premier jour d'une semaine :

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
24
25
26
27
28
29
Public Function PremierJourSemaine(ByVal numSemaine As Byte, ByVal annee As Integer) As Date
 
    Dim d As Date
    Dim numS As Integer
 
    ' Premier jour de l'année
    d = DateSerial(annee, 1, 1)
 
    ' Numéro de la semaine du 1er janvier
    numS = DatePart("ww", d, vbMonday, vbFirstFourDays)
 
    ' Si le 1er janvier fait partie de la dernière semaine de l'année précédente
    ' alors passe à la semaine suivante (la première de la nouvelle année)
    If numS <> 1 Then d = DateAdd("d", 7, d)
 
    ' Calcule le premier jour de la première semaine de l'année
    d = DateAdd("d", 1 - Weekday(d, vbMonday), d)
 
    ' Ajoute (numSemaine-1) semaines
    PremierJourSemaine = DateAdd("ww", numSemaine - 1, d)
 
 
End Function
 
Sub Macro1()
 
MsgBox PremierJourSemaine(26, 2002)
 
End Sub

Je cherche maintenant à appeler la fonction PremierJourSemaine dans mon fichier excel, c'est-à-dire rentrer le numéro de la semaine dans une cellule, l'année dans une autre pour obtenir la date du premier jour de la semaine dans la 3ème cellule où une boite de dialogue qui permet de faire la même chose...

Merci d'avance

[78chris]

Bonjour

Il suffit de copier la fonction dans un module standard du classeur concerné ou d'un classeur enregistré en xlam, classeur de macros complémentaires pour un usage plus général, pour pouvoir utiliser la fonction comme toute fonction Excel native.

[wacly]

Merci Chris, Problème résolu

[Philippe Tulliez]

Bonjour,
Pour information.
Pour connaître le premier jour de la semaine d'un jour donné (lundi qui précède ou égal à la date si lundi), il suffit d'une simple calcul arithmétique

Code :

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

=$A2-JOURSEM($A2-1)+1

Pour connaître le lundi qui suit

Code :

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

=$A2-JOURSEM($A2-1)+8

La date est en A2
Tiré du livre de Laurent Longre "Fonctions et formules Excel 2007"