Discussion :

[Tchupacabra]

Bonjour à toutes et à tous,

j'essaye de gérer au mieux l'impression d'une feuille Excel avec des sauts de pages...
Cependant, le code suivant :

Code :

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

ws.HPageBreaks.Add Before:=Cells(L, 1)

je n'arrive pas à empêcher les lignes orphelines...

En faite, j'aimerais préciser un bloc insécable... par exemple,
- de la ligne 13 à la ligne 27, le bloc ne doit pas être coupé sinon saut de ligne en 13
- de la ligne 114 à la ligne 157, le bloc ne doit pas être coupé sinon saut de ligne en 114

Quelqu'un s'aurait-il faire cela ?
Merci d'avance !

@+

[melouille56]

Salut,

je te propose un

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If ws.HPageBreaks.count <> 0 Then
 
        For pb = 1 To ws.HPageBreaks.count
            PB_old = ws.HPageBreaks(pb).Location.Row
            If PB_old <=27 And PB_old >13 Then
                PB_new = 13
                Set ws.HPageBreaks(pb).Location = Cells(PB_new, 1)
            Elseif PB_old <=157 And PB_old >114 Then
                PB_new = 114
                Set ws.HPageBreaks(pb).Location = Cells(PB_new, 1)
            End If
        Next pb
 
End If

Je n'ai pas testé mais j'ai repris un code que j'avais déjà écrit pour moi. C'est juste une idée.
A+

[Didier Gonard]

Bonjour,

Là aussi un truc qui date chez moi, principe légèrement différent, je n’avais pas de blocs précis, mais les blocs étaient caractérisés par le fait qu’ils ne comportaient pas de ligne vierges (case colonne B au mini remplie).
Si le saut de page ne tombait pas sur une ligne vierge, l’incrémentation négative de K revient à détecter la première cellule recherchée vierge au dessus et à y insérer un saut de page…..

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
Sub Impress()
Dim Hop As Range 'emplacement des sauts de page auto
Dim I As Integer
Dim J As Integer
Dim K As Integer
 
Sheets(2).Activate
ActiveWindow.View = xlPageBreakPreview ' Il est impératif que ce mode soit activé pour le contrôle des sauts
I = Sheets(2).HPageBreaks.Count
For J = 1 To I
    K = 0
    'Localise les sauts de pages auto, si ne se situe pas à une ligne vierge, K se décale et insère un forcé
    ' au bon endroit.
    'dans cette feuille :colonne A vierge, si données la case de la colonne B est forcément remplie.
    Set Hop = Sheets(2).HPageBreaks(J).Location.Offset(0, 1)
    While Hop.Offset(-K, 0) <> ""
        K = K + 1
    Wend
    Sheets(2).HPageBreaks.Add Before:=Hop.Offset(-K, 0) ' ajout
Next J
ActiveWindow.View = xlNormalView 'rétablit le mode normal
Worksheets(2).PageSetup.LeftHeader = Range("xx")
End Sub

cordialement,

Didier