Discussion :

[Lhumaniste]

Bonjour à tous,

Je fais appel à vous car je rencontre un problème étrange.
Objectif : je cherche à insérer un saut de page au niveau d'un chapitre dont le titre est fixe mais dont l'emplacement sur ma feuille excel est variable. Ce chapitre s'appelle IV. ELEMENTS EXCEPTIONNELS

J'ai donc tenté le code suivant, qui mouline, qui ne renvoie aucun message d'erreur mais qui ne fonctionne pas. Il est 12h36, j'y suis depuis 9h04 et je suis a bout.

Je vous remercie BEAUCOUP

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
Sub impression()
Dim plage1 As Range
Dim extrem As Range
Dim break As Range
Dim i, n As Integer
 
'Définit les plages :
'   extrem et le coin en bas à droite de la zone d'impression
'   plage1 est la zone d'impression
'   break est la ligne ou faire le HPageBreak
 
Set extrem = ActiveSheet.Cells.Find("VII. EXPERTISE").Offset(15, 17)
Set plage1 = Range(Cells(1, 1), extrem)
Set break = ActiveSheet.Cells.Find("IV. ELEMENTS EXCEPTIONNELS")
 
'Définit la zone d'impression + mise en page
ActiveSheet.PageSetup.PrintArea = plage1
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .PrintErrors = xlPrintErrorsDisplayed
    End With
 
'ESSAIE d'insérer un saut de page sans succès.
ActiveSheet.ResetAllPageBreaks
ActiveSheet.HPageBreaks.Add Before:=break
 
End Sub

[EngueEngue]

Code :

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

1
2
3
ligne = ActiveSheet.Cells.Find("VII. EXPERTISE").Offset(15, 17).row
colon = ActiveSheet.Cells.Find("VII. EXPERTISE").Offset(15, 17).column
Set plage1 = activesheet.Range(Cells(1, 1), cells(ligne,colon))

Tu vois l'esprit. Reproduit pour ton break et devrait gazer.

Code :

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

ActiveSheet.PageSetup.PrintArea = plage1.address

Printarea veut pas de ton range, il veut un string.

[Lhumaniste]

Salut EngueEngue,

Merci de ta réponse rapide.

J'ai modifié le code comme tu me l'as indiqué mais ca ne fonctionne pas. Je m'explique : le printarea fonctionne correctement mais c'est toujours le HPageBreaks qui veut pas.

J'ai l'impression qu'il ignore cette ligne, l'emplacement du HPageBreaks APRES avoir fait tourner la macro est le même que le HPageBreaks par défaut.

Tu as une idée ?

Encore merci du temps que tu m'accordes !

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
Sub impression()
Dim plage1 As Range
Dim extrem As Range
Dim break As Range
Dim i, n As Integer
 
'Définit les plages :
'   plage1 est la zone d'impression
'   break est la ligne ou faire le HPageBreak
 
 
 
ligne = ActiveSheet.Cells.Find("VII. EXPERTISE").Offset(15, 17).Row
colon = ActiveSheet.Cells.Find("VII. EXPERTISE").Offset(15, 17).Column
Set plage1 = ActiveSheet.Range(Cells(1, 1), Cells(ligne, colon))
 
ligne2 = ActiveSheet.Cells.Find("IV. ELEMENTS EXCEPTIONNELS").Row
colon2 = ActiveSheet.Cells.Find("IV. ELEMENTS EXCEPTIONNELS").Column
Set break = ActiveSheet.Cells(ligne2, colon2)
 
'Définit la zone d'impression + mise en page
ActiveSheet.PageSetup.PrintArea = plage1.Address
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .PrintErrors = xlPrintErrorsDisplayed
    End With
 
'ESSAIE d'insérer un saut de page sans succès.
ActiveSheet.ResetAllPageBreaks
ActiveSheet.HPageBreaks.Add Before:=break
 
End Sub

[parmi]

Bonjour,

Et si tu essayais ainsi ?

Code :

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

ActiveSheet.HPageBreaks.Add Before:=Range("A" & ligne2)

[EngueEngue]

.adress

[Lhumaniste]

Merci à tous les deux.

Bon aucun ne fonctionne. Je n'arrive pas à comprendre

Du coup j'ai fait le gros porc et ca marche mais je suis un peu déçu de n'avoir pas su faire mieux... :

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
Sub impression()
Dim plage1 As Range
Dim extrem As Range
Dim break As Range
Dim i, n As Integer
 
'Définit les plages :
'   plage1 est la zone d'impression
'   break est la ligne ou faire le HPageBreak
 
 
 
ligne = ActiveSheet.Cells.Find("V. ACTIONS A MENER").Offset(15, 17).Row
colon = ActiveSheet.Cells.Find("V. ACTIONS A MENER").Offset(15, 17).Column
Set plage1 = ActiveSheet.Range(Cells(1, 1), Cells(ligne, colon))
 
ligne2 = ActiveSheet.Cells.Find("IV. ELEMENTS EXCEPTIONNELS").Row
colon2 = ActiveSheet.Cells.Find("IV. ELEMENTS EXCEPTIONNELS").Column
Set break = ActiveSheet.Cells(ligne2, colon2)
 
'Définit la zone d'impression + mise en page
ActiveSheet.PageSetup.PrintArea = plage1.Address
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .PrintErrors = xlPrintErrorsDisplayed
    End With
 
 
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.ResetAllPageBreaks
    Set ActiveSheet.HPageBreaks(1).Location = break
    ActiveWindow.View = xlNormalView
 
End Sub