Insertion de saut de page VBA

Version imprimable

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:

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

Code:

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:

ActiveSheet.PageSetup.PrintArea = plage1.address

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

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:

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

31/10/2013, 13h49
parmi

Bonjour,

Et si tu essayais ainsi ?

Code:

ActiveSheet.HPageBreaks.Add Before:=Range("A" & ligne2)
31/10/2013, 13h51
EngueEngue

.adress

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:

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