Discussion :

[lafeeclochette31]

Bonjour,

je suis chef de projet et suis un peu rouillée en VBA excel (ma formation remonte à 2 ans donc je n'ai pas assez de recul).

Mois par mois, je dois faire un rapport mensuel avec 15 onglets.

- Dans une cellule, j'aimerais mettre à jour l'issue (de 1 jusqu'à 24) en fonction du mois et de l'année en cours sachant que :
mars 2021 = 1, avril 2021 =2, mai 2021=3, ...jusqu'à février 2023 =24;

- j'aimerais intégrer cette issue dans l'en-tête à droite :
"Référence projet 2023
Issue xx
Date"


J'y suis arrivé mais en semaine (d'où le "ww" dans Format) mais je voudrais mettre une numérotation spécifique.


En vous remerciant !!



Voici 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 modif_monthly_Click()
    Dim x As Byte
 
 
With ActiveWorkbook
 
' En D9, écrire le numéro de l'issue en fonction du mois et de l'année: _
' mars 2021=1, avril 2021=2, mai 2021=3, juin 2021=4, juillet 2021=5, août 2021=6,
' septembre 2021=7, octobre 2021=8, novembre 2021=9, décembre 2021=10, _
' janvier 2022=11, février 2022=12, mars 2022=13, avril 2022=14, mai 2022=15, juin 2022=16, _
' juillet 2022=17, août 2022=18, septembre 2022=19,octobre 2022=20, novembre 2022=21, décembre 2022=22, _
' janvier 2023=23, février 2023=24
 
    Worksheets("Cover Page").Range("D9") = Format(Date, "ww", 2, 2)
 
End With
 
  For x = 2 To 15
 
        With Sheets(x).PageSetup
        .RightHeader = "Référence projet 2023" & Chr(10) & "Issue " & Format(Date, "ww", 2, 2) & Chr(10) & "Date: &D "
 
        End With
 
    Next x
 
End Sub

[ARTURO83]

Bonjour,

Essayez ceci

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub modif_monthly_Click()
    Dim x As Byte
    Dim Periode As String
    Application.ScreenUpdating = False
    With ActiveWorkbook
        Worksheets("Cover Page").Range("D9") = Format(Date, "ww", 2, 2)
        For i = 1 To 24
            Select Case Month(Date) & " " & Year(Date)
                Case Is = "3 2021"
                    Issue = 1
                Case Is = "4 2021"
                    Issue = 2
                Case Is = "5 2021"
                    Issue = 3
                Case Is = "6 2021"
                    Issue = 4
                Case Is = "7 2021"
                    Issue = 5
                Case Is = "8 2021"
                    Issue = 6
                Case Is = "9 2021"
                    Issue = 7
                Case Is = "10 2021"
                    Issue = 8
                Case Is = "11 2021"
                    Issue = 9
                Case Is = "12 2021"
                    Issue = 10
                Case Is = "1 2022"
                    Issue = 11
                Case Is = "2 2022"
                    Issue = 12
                Case Is = "3 2022"
                    Issue = 13
                Case Is = "4 2022"
                    Issue = 14
                Case Is = "5 2022"
                    Issue = 15
                Case Is = "6 2022"
                    Issue = 16
                Case Is = "7 2022"
                    Issue = 17
                Case Is = "8 2022"
                    Issue = 18
                Case Is = "9 2022"
                    Issue = 19
                Case Is = "10 2022"
                    Issue = 20
                Case Is = "11 2022"
                    Issue = 21
                Case Is = "12 2022"
                    Issue = 22
                Case Is = "1 2023"
                    Issue = 23
                Case Is = "2 2023"
                    Issue = 24
            End Select
        Next i
    End With
 
Remplissage:
    For x = 2 To 15
        With Sheets(x).PageSetup
            .RightHeader = "Référence projet 2023" & Chr(10) & "Issue " & Issue & Chr(10) & "Date: " & Date
        End With
    Next x
End Sub

Cdlt

[lafeeclochette31]

Merci Arturo83 !

ça marche sur l'en-tête mais pas sur la cellule D9 parce que je me suis mal exprimée dans mon post.

J'ai juste fait des modifications sur la macro pour que la cellule D9 prenne l'issue en compte et ça a marché !!

[ARTURO83]

Bonsoir,

Vous voulez dire ceci (Dernière ligne du code ci-dessous)?

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub modif_monthly_Click()
    Dim x As Byte
    Dim Periode As String
    Application.ScreenUpdating = False
    With ActiveWorkbook
        For i = 1 To 24
            Select Case Month(Date) & " " & Year(Date)
                Case Is = "3 2021"
                    Issue = 1
                Case Is = "4 2021"
                    Issue = 2
                Case Is = "5 2021"
                    Issue = 3
                Case Is = "6 2021"
                    Issue = 4
                Case Is = "7 2021"
                    Issue = 5
                Case Is = "8 2021"
                    Issue = 6
                Case Is = "9 2021"
                    Issue = 7
                Case Is = "10 2021"
                    Issue = 8
                Case Is = "11 2021"
                    Issue = 9
                Case Is = "12 2021"
                    Issue = 10
                Case Is = "1 2022"
                    Issue = 11
                Case Is = "2 2022"
                    Issue = 12
                Case Is = "3 2022"
                    Issue = 13
                Case Is = "4 2022"
                    Issue = 14
                Case Is = "5 2022"
                    Issue = 15
                Case Is = "6 2022"
                    Issue = 16
                Case Is = "7 2022"
                    Issue = 17
                Case Is = "8 2022"
                    Issue = 18
                Case Is = "9 2022"
                    Issue = 19
                Case Is = "10 2022"
                    Issue = 20
                Case Is = "11 2022"
                    Issue = 21
                Case Is = "12 2022"
                    Issue = 22
                Case Is = "1 2023"
                    Issue = 23
                Case Is = "2 2023"
                    Issue = 24
            End Select
        Next i
    End With
 
Remplissage:
    For x = 2 To 15
        With Sheets(x).PageSetup
            .RightHeader = "Référence projet 2023" & Chr(10) & "Issue " & Issue & Chr(10) & "Date: " & Date
        End With
    Next x
    Worksheets("Cover Page").Range("D9") = Issue
End Sub

Cdlt