Saut de page VBA

Version imprimable

31/07/2015, 12h14
Guillaume56

Saut de page VBA

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

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:

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

31/07/2015, 16h23
Guillaume56

Parfait, merci beaucoup de ton aide !

Guillaume

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:

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