Saut de pages sur toutes les feuilles

[thomas4530]

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]

Re : Saut de pages sur toutes les feuilles

Bonjour Thomas, bonjour le forum,

Essaie comme ça :

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