| Laoo a écrit : 
 
 Salut à toi, et à tous aussi
 J'ai même 3 solutions, mais...
 
 - la 1° serait de mettre tout ça dans Word, où le traitement des sauts de page par macro est bcp plus simple.  (et à mon sens la mise en page meilleure pour ce genre d'exercice...)
 
 - la 2°: si il n'y a pas trop de pages, afficher ton classeur en mode sauts de pages, tout vérifier, et repousser les mauvais sauts à la main.
 
 - la 3°: supprimer tous les sauts de pages avec cette formule:
 
 ActiveSheet.ResetAllPageBreaks
 
 puis définir une routine qui ajoute un saut toutes les x lignes sauf si :    activecell <> ""
 
 et sans dépasser z lignes, sinon remonter à la ligne vide précédente pour mettre un saut.
 
 etc.
 
 
 Mettre un saut:
 ActiveSheet.HPageBreaks.Add before:=ActiveCell  (ou after)
 
 
 Repousser le saut i     (qui peut prendre la valeur de i ds une boucle For i = 1 To zzz :
 
 Set ActiveSheet.HPageBreaks(i).Location = ActiveCell 'ou Range("A15" ), ou ailleurs
 
 
 Voilà, joue avec ça, à moins que quelqu'un ne passe te donner une idée autre??
 
 Bye
 
 |