Macro saut de page adaptable selon dates TCD

Version imprimable

19/07/2020, 12h10
safranien

1 pièce(s) jointe(s)

Macro saut de page adaptable selon dates TCD

Bonjour

je dispose d'un fichier qui rècupère des dates et données journalières sur un serveur. Sur une feuille, j'ai TCD reprenant ces données. Ces données peuvent débuter à n'importe quelle date mais ce sera toujours le 1er du mois qui sera la première date (01/01/20XX ou 01/03/XX etc). Dans tous les cas, au final, j'aurai toujours un tableau comportant des données pour 365 ou 366 jours au final. Mon TCD va donc s'agrandir au fur et à mesure et dès que je passe une certaine date je dois réarranger les sauts de page.
N'y aurait-il pas une possibilité de déclarer que le premier saut de page doit être au niveau de la ligne qui sera le dernier jour du 4e mois après la première date des données puis un autre saut de ligne qui se mettra 4 mois plus tard et enfin encore 4 mois plus tard?

Dans mon exemple, mes données débutent au 01/01/2020. Il faudrait donc que le premier saut de ligne se positionne au niveau de la ligne qui accueillera la date du 30/04 (ligne qui va varier selon que l'on est en année bissextile ou non).
Le 2e saut de page devra apparaître dès lors que les dates du TCD auront dépasser le 30/04 pour aller se positionner 4 mois plus tard, soit au niveau de la ligne qui accueillera la date du 31/08.
Idem ensuite pour le 31/12.

Ceci est un exemple pour un début au 01/01 mais la logique est la même si je passe sur une affaire dont les données débutent par exemple au 01/03/XX. Les sauts de lignes devront alors se faire au 30/06/XX - 31/10/XX - 28 ou 29/02/XX+1.

Merci d'avance pour votre aide.

Bonjour,

Voici une proposition à adapter, supprimez tout d'abord la zone d'impression, puis copiez le code dans un module standard

Code:

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
Dim Annee As Long
Dim Date1 As Date, d1 As Range
 
Sub fixer_Sauts_de_Pages()
    Application.ScreenUpdating = False
    Annee = Year(Range("B2").Value)
    Date1 = DateSerial(Annee, "04", "30")    'Recherche du 30/04
    Marquage_Saut_de_Page
    Date1 = DateSerial(Annee, "06", "30")    'Recherche du 30/06
    Marquage_Saut_de_Page
    Date1 = DateSerial(Annee, "10", "31")    'Recherche du 31/10
    Marquage_Saut_de_Page
    If Annee Mod 4 = 0 Then
        Date1 = DateSerial(Annee + 1, "02", "28")  'Recherche du 28/02
    Else
        Date1 = DateSerial(Annee + 1, "02", "29")  'Recherche du 29/02
    End If
    Marquage_Saut_de_Page
End Sub
 
Sub Marquage_Saut_de_Page()
    Set d1 = Columns("F").Find(Date1, LookIn:=xlFormulas, lookat:=xlWhole)
    Range(Cells(d1.Row + 1, "F"), Cells(d1.Row + 1, "DZ")).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub

Cdlt

20/07/2020, 09h03
safranien

1 pièce(s) jointe(s)

Bonjour Arturo83

merci beaucoup pour ta proposition. J'ai collé le code dans un module et fait varier mon TCD. Les saut de page horizontaux semblent bien suivre ce dernier. Cependant, la zone d'impression commence en A0 jusqu'en DZ1. J'aimerais qu'elle commence en B1 jusqu'en CO1 comme dans le fichier que j'ai envoyé. De plus, je me retrouve avec plusieurs sauts de pages verticaux ce qui me donne au fnal 22 pages. J'ai voulu réarranger les sauts de pages verticaux mais après la macro ne fonctionne plus.

Dernier point, la première date de mon TCD ne sera pas forcément le 1er janvier. Plutôt que de chercher les 30/04, 30/06 et 31/10 dans le code, peut on chercher le dernier jour du 4e mois suivant la première date du TCD, puis le 8e etc?
Par exemple si la première date = 01/11/2019 alors le premier saut de page doit être au 28 ou 29 février 2020, puis au 30/06/2020 et enfin au 31/10/2020?

Citation:

Dernier point, la première date de mon TCD ne sera pas forcément le 1er janvier. Plutôt que de chercher les 30/04, 30/06 et 31/10 dans le code, peut on chercher le dernier jour du 4e mois suivant la première date du TCD, puis le 8e etc?
Par exemple si la première date = 01/11/2019 alors le premier saut de page doit être au 28 ou 29 février 2020, puis au 30/06/2020 et enfin au 31/10/2020?

Vous vous contredisez ou alors j'ai mal compris, initialement c'était:

Citation:

Ces données peuvent débuter à n'importe quelle date mais ce sera toujours le 1er du mois qui sera la première date (01/01/20XX ou 01/03/XX etc)

PPOur le choix des dates, créez un boîte de dialogue qui demande de saisir la première date, et appliquez le décalage pour les périodes suivantes.

Ici le code modifié qui crée une zone d'impression différente au fur et à mesure de son avancement, à adapter selon vos besoins

Code:

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
    Dim DerLig As Long
    Dim LigDeb As Long
    Dim Date1, d1 As Object
    Dim Plage As Range
    Dim Annee As Long
 
Sub fixer_Sauts_de_Pages()
    Application.ScreenUpdating = False
    Annee = Year(Range("B2").Value)
    Date1 = DateSerial(Annee, "04", "30")    'Recherche du 30/04
    Marquage_Saut_de_Page
    LigDeb = 1
    Set Plage = Range(Cells(LigDeb, "B"), Cells(DerLig, "CO"))
    Definir_Zone_Impression
    'inscrivez ici votre ligne d'impression
 
    Date1 = DateSerial(Annee, "06", "30")    'Recherche du 30/06
    LigDeb = DerLig + 1
    Marquage_Saut_de_Page
    Set Plage = Range(Cells(LigDeb, "B"), Cells(DerLig, "CO"))
    Definir_Zone_Impression
    'inscrivez ici votre ligne d'impression
 
 
    Date1 = DateSerial(Annee, "10", "31")    'Recherche du 31/10
    LigDeb = DerLig + 1
    Marquage_Saut_de_Page
    Set Plage = Range(Cells(LigDeb, "B"), Cells(DerLig, "CO"))
    Definir_Zone_Impression
     'inscrivez ici votre ligne d'impression
 
 
    Marquage_Saut_de_Page
    If Annee Mod 4 = 0 Then
        Date1 = DateSerial(Annee + 1, "02", "28")  'Recherche du 28/02
    Else
        Date1 = DateSerial(Annee + 1, "02", "29")  'Recherche du 29/02
    End If
    LigDeb = DerLig + 1
    Marquage_Saut_de_Page
    Set Plage = Range(Cells(LigDeb, "B"), Cells(DerLig, "CO"))
    Definir_Zone_Impression
    'inscrivez ici votre ligne d'impression
 
End Sub
 
Sub Marquage_Saut_de_Page()
    Set d1 = Columns("F").Find(Date1, LookIn:=xlFormulas, lookat:=xlWhole)
    Range(Cells(d1.Row + 1, "A"), Cells(d1.Row + 1, "CO")).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    DerLig = Selection.Row - 1
End Sub
 
Sub Definir_Zone_Impression()
    On Error Resume Next
    ActiveWorkbook.Names("zone_d_impression").Delete
    Plage.Select
    ActiveWorkbook.Names.Add Name:="zone_d_impression", RefersToR1C1:="=Feuil1!R" & LigDeb & "C2:R" & DerLig & "C2"
End Sub

20/07/2020, 21h51
safranien

1 pièce(s) jointe(s)

Bonsoir

désolé j'ai du mal m'exprimer. Quand je dis que la première date sera toujours le 1er du mois...de n'importe quel mois. Effectivement derrière j'ai refais mention du 1er janvier, j'aurais du mettre le 01/11/2019 par exemple.
J'aurais du dire aussi que je n'y connaissais rien en macro et que du coup je suis un boulet pour des gens expérimentés comme vous.
Créer une boite de dialogue je ne sais pas faire et dans tous les cas, j'aimerais que tout soit automatisé. J'ai dans mon fichier plus d'une centaine de sites que je choisis via un menu déroulant, et qui ont tous des dates de démarrage différentes. Je ne peux pas faire une action manuelle de déclarration de date de départ à chaque fois.
J'ai malgré tout tenté de recopier le dernier code et le résultat n'y est pas. Le dernier saut de page semble bien suivre les mises à jours du TCD mais les sauts de pages intermédiaires ne sont plus calés au bon endroit (dans notre exemple, au 30/04 et au 31/08 quand je chois le cas 3).
De plus, la zone imprimable du fichier devrait être de B2 à CO2, jusqu'au saut de page du bas et là le 1er saut de page du haut est en A1. Et dernier point, il y a des sauts de pages verticaux intermédiaires alors qu'il ne devrait pas y en avoir.

Peut être que je fais mal qqch. Si ça fonctionne chez vous, pouvez vous me renvoyer le fichier avec votre code? Je continue d'essayer de comprendre et de chercher comment faire.

Bonne soirée.

Bonjour,

Essayez ceci: au début, une boîte de dialogue vous demandera de saisir le nombre de mois.

le fichier
Pièce jointe 575475

le code

Code:

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
    Dim DerLig As Long
    Dim LigDeb As Long
    Dim Date1, d1 As Object
    Dim Plage As Range
    Dim Annee As Long, i As Long
    Dim DateDepart As Date
    Dim NbMois As Byte, NbM As Byte
 
Sub fixer_Sauts_de_Pages()
    Application.ScreenUpdating = False
    Annee = Year(Range("B2").Value)
    DateDepart = Range("F5")
    NbMois = Application.InputBox("Inscrivez le nombre de mois par page", , , , , , , 1)
    DerLig = 0
    For i = 1 To (12 / NbMois)
        NbM = (NbMois * i) - 1
        Date1 = CDate(Application.WorksheetFunction.EoMonth(DateDepart, NbM))
        LigDeb = DerLig + 1
        Marquage_Saut_de_Page
        Set Plage = Range(Cells(LigDeb, "B"), Cells(DerLig, "CO"))
        Definir_Zone_Impression
 
        'inscrivez ici votre ligne d'impression
 
    Next i
End Sub
 
Sub Marquage_Saut_de_Page()
    If i = 4 Then
        DerLig = Range("F" & Rows.Count).End(xlUp).Row
    Else
        DerLig = Columns("F").Find(Date1, LookIn:=xlFormulas, lookat:=xlWhole).Row
    End If
End Sub
 
Sub Definir_Zone_Impression()
    On Error Resume Next
    ActiveSheet.PageSetup.PrintArea = "B" & LigDeb & ":CO" & DerLig
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
    ActiveWorkbook.Names("zone_d_impression").Delete
    Plage.Select
    ActiveWorkbook.Names.Add Name:="zone_d_impression", RefersToR1C1:="=Feuil1!R" & LigDeb & "C2:R" & DerLig & "C93"
End Sub

Cdlt

26/07/2020, 10h10
safranien

Bonjour

désolé pour ma réponse tardive. Et pour être mauvais dans le domaine, mais quand j'ouvre le fichier, je n'ai aucune boite de dialogue et toujours les mêmes constats que ceux cités dans mon précédent message. Faut il que je pfasse qqch de particulier à l'ouverture du fichier?
26/07/2020, 10h41
ARTURO83

Bonjour,

Citation:

mais quand j'ouvre le fichier, je n'ai aucune boite de dialogue

Il n'a jamais été question que cela se fasse dès l'ouverture du fichier. Revoici le fichier avec un bouton pour lancer l'impression, ajoutez la ligne manquante pour imprimer

Pièce jointe 575860

Cdlt
26/07/2020, 11h06
safranien

Merci. Quand j'ouvre le fichier, il est sur le cas 3 et aucun saut de page. Je clique sur le bouton et je saisis 12 mois et là OK, les sauts de pages se font (mais le saut de page supérieur commence toujours à B1 au lieu de B2). Je choisis le cas 2, j'actualise le YCD, je clique sur le bouton, et là, quelque soit le nombre de mois que je saisis, il y a une erreur d'exécution 91 Variable d'objet ou de bloc With non définie.
Cependant, même si ça fonctionnait, je cherche à ce que les sauts de pages s'adaptent automatiquement aux lignes du TCD, sans aucune manip. Je continue de creuser.
26/07/2020, 11h12
ARTURO83

Je crois qu'on ne s'est pas compris. Au début vous vouliez des sauts de pages tous les 3 ou 4 mois, c'est cette valeur qu'il faut entrer dans la boîte de saisie et non pas 12( on le sait que vous voulez imprimer l'année complète, vous l'avez dit au début)

Par contre, j'ignore totalement ce que sont ces "cas 1, cas 2 cas 3", vous n'en avez parlé nulle part.
26/07/2020, 11h26
safranien

Effectivement, les cas 1,2 et 3 sont à choisir via le menu déroulant en C4 pour simuler plusieurs situations de nombre de dates (il faut actualiser manuellement le TCD ensuite). J'ai parlé du Cas 3 dans un de mes messages ùais effectivement j'ai omis de parler de ce menu déroulant pour faire le rapprochement. Désolé.
Je viens donc de refaire l'essai et quand je choisis 4 mois par page, sur le Cas 3, à sacoir les dates du 01/01 au 31/12, j'ai les sauts de pages qui se mettent du 01/09 au 31/12. Mais du coup, je n'ai pas les autres mois de l'année.
On devrait donc avoir les sauts de pages qui vont de B2 à CO370 avec des sauts de pages intermédiaires en lignes 125 et 248.
26/07/2020, 11h30
ARTURO83

Citation:

Je viens donc de refaire l'essai et quand je choisis 4 mois par page, sur le Cas 3, à sacoir les dates du 01/01 au 31/12, j'ai les sauts de pages qui se mettent du 01/09 au 31/12. Mais du coup, je n'ai pas les autres mois de l'année.

La macro passe en revus les 4 trimestres et fini par le dernier, pour vous en rendre compte mettez une apostrophe devant la ligne "Application.ScreenUpdating = False", ainsi vous verrez défiler les sélections.
26/07/2020, 12h08
safranien

1 pièce(s) jointe(s)

Oui effectivement je vois bien que ça scintille et à un moment donné toute la feuille semble être dans la plage des sauts de page, mais au final la sélection visible ne se fait qu'entre le 01/09 et le 31/12. Pourquoi toute la plage de date n'est-elle pas dans la zone active. Je suis désolé mais je ne comprends rien et j'ai effectivement l'impression que j'arrive pas à faire comprendre ce que je cherche à obtenir (bien que vous ayez compris qu'au final j'ai besoin que toute l'année soit dans la plage des sauts de page). En PJ la feuille avec le rendu que j'obtiens.
26/07/2020, 18h53
ARTURO83

Je réexplique: Vous vouliez pouvoir imprimer l'année mais que les sauts de page se fasse tous les 4 trimestres (1 trimestre par page, c'est ce que j'ai compris), ou tous les 4 mois, c'est pour cela que j'ai mis la boîte de saise
Que fait la macro:
En fonction du chiffre que vous aurez rentré dans la boîte de saisie, par exemple 3, la macro sélectionne alors les 3 premiers mois de l'année, à la suite de elle doit lancer l'impression, puis elle passe aux 3 mois suivants, suivi de l'impression et ainsi de suite jusqu'à la fin des365 ou 366 jours.
Je vous ai dit que je n'ai pas écrit volontairement la ligne pour imprimer, je vous ai laissé le soin de l'ajouter vous même à l'emplacement prévu, juste sous la ligne '

Code:

inscrivez ici votre ligne d'impression"

Est-ce que cela correspond bien à la demande initiale?
28/07/2020, 08h11
safranien

3 pièce(s) jointe(s)

Bonjour

effectivement je n'arrive pas à faire comprendre ce que je recherche. Quand le TCD est avec 365 jours (cas 3 du menu déroulant), j'aimerais donc que la zone en blanc aille de B2 à CO370 avec des sauts de pages intermédiaires qui se calent au au 30/04 et au 31/08. Ce qui donnera que 3 pages s'imprimeront quand je lancerai l'impression.
Le saut de page du bas suit l'évolution du TCD, quand on dépasse le 30/04 il y a un saut de page intermédiaire qui se cale et la même quand on dépasse le 31/08.
Ci-joint 3 excel selon les 3 cas et le rendu (j'ai enlevé toutes les lignes de codes).
28/07/2020, 08h38
ARTURO83

Bonjour,

C'est mieux mais pas encore suffisamment clair.

Code:

Le saut de page du bas suit l'évolution du TCD, quand on dépasse le 30/04 il y a un saut de page intermédiaire qui se cale et la même quand on dépasse le 31/08.

Que dois-je comprendre, avec différents exemples pour le cas 1:
Exemple1: le 30/4 n'est pas encore atteint, donc on met tout sur la même feuille
Exemple2: le 30/4 est dépassé de 3 ou 4 jours,doit-on mettre sur 1 feuille la période du début au 30/4 puis le reste sur une autre feuille ou bien tout sur la même feuille?
Exemple3: le 30/4 est dépassé de 15 ou 20 jours, doit-on mettre sur 1 feuille la période du début au 30/4 puis le reste sur une autre feuille ou bien tout sur la même feuille?
28/07/2020, 09h39
safranien

Exemple1: le 30/4 n'est pas encore atteint, donc on met tout sur la même feuille --> oui, du 01/01 au 30/04 on est sur la feuille 1
Exemple2: le 30/4 est dépassé de 3 ou 4 jours,doit-on mettre sur 1 feuille la période du début au 30/4 puis le reste sur une autre feuille ou bien tout sur la même feuille? --> du 01/01 au 31/04 = feuille 1 et après le 30/04, saut de page, on est sur la feuille 2
Exemple3: le 30/4 est dépassé de 15 ou 20 jours, doit-on mettre sur 1 feuille la période du début au 30/4 puis le reste sur une autre feuille ou bien tout sur la même feuille? --> du 01/01 au 30/04 = feuille 1, du 01/05 au 31/08 = feuille 2, du 01/09 au 31/12 = feuille 3. Donc si la dernière date du TCD es tle 15/07 par exemple, on est sur la feuille 2 et ce jusqu'au 31/08, date à laquelle on bascule sur la feuille 3.

Si j'ai bien compris

Le fichier
Pièce jointe 576055

Le code

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
    Dim DerLig As Long
    Dim LigDeb As Long
    Dim Annee As Long, i As Long
    Dim ligDerDateCas1 As Long, ligDerDateCas2 As Long, ligDerDateCas13 As Long
    Dim LigDatePeriodeCas1 As Long, LigDatePeriodeCas2 As Long, LigDatePeriodeCas3 As Long
    Dim DateDepart As Date, DerDateCas1 As Date, DerDateCas2 As Date, DerDateCas3 As Date
    Dim DerDatePeriodeCas1 As Date, DerDatePeriodeCas2 As Date, DerDatePeriodeCas3 As Date
    Dim Cycle_Mois
    Dim f1 As Worksheet, f2 As Worksheet
    Dim Z_Impr As String
 
 
Sub fixer_Sauts_de_Pages()
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    Annee = Year(f1.Range("B2").Value)
    DateDepart = f1.Range("F5")
    Cas = f1.Range("C4").Value
    Cycle_Mois = 4
    DerLig = 0
 
    'Relevé des emplacements
    DerDateCas1 = CDate(Application.WorksheetFunction.EoMonth(DateDepart, 3)) 'Dernier jour du 4ème mois
    DerDateCas2 = CDate(Application.WorksheetFunction.EoMonth(DateDepart, 7)) 'Dernier jour du 8ème mois
    DerDateCas3 = CDate(Application.WorksheetFunction.EoMonth(DateDepart, 11)) 'Dernier jour du 12ème mois
    ligDerDateCas1 = f1.Columns("F").Find(DerDateCas1).Row
    ligDerDateCas2 = f1.Columns("F").Find(DerDateCas2).Row
    LigDerDateCas3 = f1.Columns("F").Find(DerDateCas3).Row
 
    DerDatePeriodeCas1 = f2.Range("F" & f2.Range("F" & Rows.Count).End(xlUp).Row) 'dernier jour du cas 1
    DerDatePeriodeCas2 = f2.Range("H" & f2.Range("H" & Rows.Count).End(xlUp).Row) 'dernier jour du cas 2
    DerDatePeriodeCas3 = f2.Range("J" & f2.Range("J" & Rows.Count).End(xlUp).Row) 'dernier jour du cas 3
    LigDatePeriodeCas1 = f1.Columns("F").Find(DerDatePeriodeCas1).Row
    LigDatePeriodeCas2 = f1.Columns("F").Find(DerDatePeriodeCas2).Row
    LigDatePeriodeCas3 = f1.Columns("F").Find(DerDatePeriodeCas3).Row
 
    Select Case Cas
        Case Is = "Cas 1"
            If DerDatePeriodeCas1 > DerDateCas1 Then 'si la date de fin est supérieure à la fin du mois du cas 1
                Z_Impr_1_1 = "B1:CO" & ligDerDateCas1 'détermine la 1ère zone d'impression du cas 1
                Z_Impr = Z_Impr_1_1
                LigDeb = 1
                DerLig = ligDerDateCas1
                Definir_Zone_Impression
                Z_Impr_1_2 = "B" & ligDerDateCas1 + 1 & " :CO" & LigDatePeriodeCas1 'détermine la 2ème zone d'impression du cas 1
                Z_Impr = Z_Impr_1_2
                LigDeb = ligDerDateCas1 + 1
                DerLig = LigDatePeriodeCas1
                Definir_Zone_Impression
            Else
                Z_Impr_1_1 = "B1:CO" & LigDatePeriodeCas1 'détermine la 1ère zone d'impression du cas 1
                Z_Impr = Z_Impr_1_1
                LigDeb = 1
                DerLig = LigDatePeriodeCas1
                Definir_Zone_Impression
            End If
 
        Case Is = "Cas 2"
            Z_Impr_1_2 = "B1:CO" & ligDerDateCas1 'détermine la 1ère zone d'impression du cas 2, équivaut à la 1ère zone d'impression du cas 1
            Z_Impr = Z_Impr_1_2
            LigDeb = 1
            DerLig = ligDerDateCas1
            Definir_Zone_Impression
            If DerDatePeriodeCas2 > DerDateCas2 Then 'si la date de fin est supérieure à la fin du mois du cas 2
                Z_Impr_1_2 = "B" & ligDerDateCas1 + 1 & ":CO" & ligDerDateCas2 'détermine la 1ère zone d'impression du cas 2
                Z_Impr = Z_Impr_1_2
                LigDeb = DerDateCas1 + 1
                DerLig = ligDerDateCas2
                Definir_Zone_Impression
                Z_Impr_2_2 = "B" & ligDerDateCas2 + 1 & " :CO" & LigDatePeriodeCas2 'détermine la 2ème zone d'impression du cas 2
                Z_Impr = Z_Impr_2_2
                LigDeb = ligDerDateCas2 + 1
                DerLig = LigDatePeriodeCas2
                Definir_Zone_Impression
            Else
                Z_Impr_1_2 = "B" & ligDerDateCas1 + 1 & ":CO" & LigDatePeriodeCas2 'détermine la 2ème zone d'impression du cas 2
                Z_Impr = Z_Impr_1_2
                LigDeb = ligDerDateCas1 + 1
                DerLig = LigDatePeriodeCas2
                Definir_Zone_Impression
            End If
 
        Case Is = "Cas 3"
            Z_Impr_1_3 = "B1:CO" & ligDerDateCas1 'détermine la 1ère zone d'impression du cas 3, équivaut à la 1ère zone d'impression du cas 1
            Z_Impr = Z_Impr_1_3
            LigDeb = 1
            DerLig = ligDerDateCas1
            Definir_Zone_Impression
            Z_Impr_2_3 = "B" & ligDerDateCas1 + 1 & ":CO" & ligDerDateCas2 'détermine la 2ème zone d'impression du cas 3, équivaut à la 2ème zone d'impression du cas 2
            Z_Impr = Z_Impr_2_3
            LigDeb = ligDerDateCas1 + 1
            DerLig = ligDerDateCas2
            Definir_Zone_Impression
            If DerDatePeriodeCas3 > DerDateCas3 Then 'si la date de fin est supérieure à la fin du mois du cas 3
                Z_Impr_1_3 = "B" & ligDerDateCas2 + 1 & ":CO" & LigDerDateCas3 'détermine la 1ère zone d'impression du cas 3
                Z_Impr = Z_Impr_1_3
                LigDeb = ligDerDateCas2 + 1
                DerLig = LigDerDateCas23
                Definir_Zone_Impression
                Z_Impr_2_3 = "B" & ligDerDateCas2 + 1 & " :CO" & LigDatePeriodeCas3 'détermine la 3ème zone d'impression du cas 3
                Z_Impr = Z_Impr_2_3
                LigDeb = ligDerDateCas2 + 1
                DerLig = LigDatePeriodeCas3
                Definir_Zone_Impression
            Else
                Z_Impr_1_3 = "B" & ligDerDateCas2 + 1 & ":CO" & LigDatePeriodeCas3 'détermine la 3ème zone d'impression du cas 3
                Z_Impr = Z_Impr_1_3
                LigDeb = ligDerDateCas2 + 1
                DerLig = LigDatePeriodeCas3
                Definir_Zone_Impression
            End If
    End Select
    Set f1 = Nothing
    Set f2 = Nothing
End Sub
 
Sub Definir_Zone_Impression()
    On Error Resume Next
    ActiveSheet.PageSetup.PrintArea = f1.Range(Z_Impr)
    ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
    ActiveWorkbook.Names("zone_d_impression").Delete
    f1.Range(Z_Impr).Select
    ActiveWorkbook.Names.Add Name:="zone_d_impression", RefersToR1C1:="=Feuil1!R" & LigDeb & "C2:R" & DerLig & "C93"
 
    '*******************************************************************************************
    'inscrire la ligne d'impression ICI
 
End Sub