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
|