Discussion :

[Guillaume56]

Bonjour à tous,

Je souhaîte faire un saut de page à intervalles réguliers avant d'enregistrer mon classeur en PDF, afin que les cellules ne soient pas coupées en deux.
J'ai déjà essayé de faire un HpageBreak.Add qui n'a pas fonctionné, lorsque les cellules de la colonne A sont fusionnées.
Existe t'il un moyen simple de déterminer sur quelle page se trouve une cellule et si elle est coupée en deux, appliquer le saut de page à la ligne supérieure ?

Merci,

Guillaume

[parmi]

Bonjour,

Essaie ceci.
Il faudra peut-être la rouler 2 fois selon le nombre de lignes que tu as.
Le dernier saut de page créé par la modification n'est pas tenu en compte lors du premier passage.

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
    Dim nbLignes As Long
    Dim LigneSaut As Long, LigneDepart As Long
    Dim Saut As HPageBreak
    Dim Plage As Range
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    Set Plage = Range("A1:A" & nbLignes)
 
    'lecture de chaque saut de page
    For Each Saut In HPageBreaks
        LigneSaut = Range("A" & Saut.Location.Row).Row      'ligne où est le saut de page
        LigneDepart = Range("A" & LigneSaut).MergeArea.Row  'Ligne de début de la cellule fusionnée
 
        'Ajoute un saut de page avant la cellule fusionnée
        ActiveSheet.HPageBreaks.Add before:=Range("A" & LigneDepart)
    Next

[Guillaume56]

Parfait, merci beaucoup de ton aide !

Guillaume

[Docmarti]

Bonjour.

Et si cela ne te dérange pas que tous les sauts de pages soient déplacés, voici qui déplace les sauts de page actuels au lieu d' en ajouter de nouveaux :

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
Sub tt()
 
    Dim Saut As HPageBreak
 
    ActiveWindow.View = xlPageBreakPreview
 
    ActiveSheet.ResetAllPageBreaks
 
    For Each Saut In HPageBreaks
 
        'Deplace le saut de page avant la cellule fusionnée
        Set Saut.Location = Saut.Location.MergeArea.Cells(1, 1)
 
    Next
 
End Sub