Discussion :

[Daniel.C]

Bonjour,

J'ai mis des commentaires dans le code :

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
Private Sub CommandButton21_Click()
    Dim Sem As Integer
    'calcule la semaine correspondante au jour de la cellule B7 + 21 jours
    Sem = DatePart("ww", [B7] + 21, vbMonday, vbFirstFourDays)
    'écrit la semaine dans B5
    [B5] = "Semaine " & Sem
    'calcule la nouvelle valeur de B7 en ajoutant 3 jours à P7
    [B7] = [P7] + 3
    'remplit C7:F7 en ajoutant 1 à chaque fois
    For i = 1 To 4
        [B7].Offset(, i) = [B7] + i
    Next i
    'même chose pour la deuxième semaine
    Sem = DatePart("ww", [G7] + 21, vbMonday, vbFirstFourDays)
    [G5] = "Semaine " & Sem
    [G7] = [F7] + 3
    For i = 1 To 4
        [G7].Offset(, i) = [G7] + i
    Next i
    'même chose pour la troisième semaine
    Sem = DatePart("ww", [L7] + 21, vbMonday, vbFirstFourDays)
    [L5] = "Semaine " & Sem
    [L7] = [K7] + 3
    For i = 1 To 4
        [L7].Offset(, i) = [L7] + i
    Next i
End Sub

[malavida44]

Merci encore !
Bonne journée à toi