Saut de pages sur toutes les feuilles

thomas4530 · 1 Juillet 2014

Bonjour,

J'ai un classeur qui contient 125 feuilles.

Malheureusement, les sauts de page ne sont pas placés au bon endroit.

Quel code écrire pour:
- 1. effacer tous les sauts de pages sur toutes les feuilles
- 2. insérer un saut de page après la ligne 42.

Un grand merci pour votre aide, je rame.

Thomas

Robert · 1 Juillet 2014

Re : Saut de pages sur toutes les feuilles

Bonjour Thomas, bonjour le forum,

Essaie comme ça :

Code:

Sub Macro1()
Dim O As Object 'déclare la variable O (Onglets)

For Each O In Sheets 'boucle sur tous les onglets
    O.ResetAllPageBreaks 'Rétablit tous les sauts de page
    O.HPageBreaks.Add Before:=O.Range("A43") 'ajoute un saut de page avant la ligne 43
Next O 'prochain onglet de la boucle
End Sub

Saut de pages sur toutes les feuilles

thomas4530

Guest

Robert

XLDnaute Barbatruc

Discussions similaires

Saut de pages sur toutes les feuilles

thomas4530

Guest

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency