automatiser saut de page

bonsoir

cet exemple permet d'insérer un saut de page automatique toutes les 10 lignes , jusqu'à la ligne 50
par contre je n'ai pas compris ton explication sur les lignes vides

Sub sautDePageAutomatique()
'insertion d'un saut de page automatique
'toutes les 10 lignes , jusqu'à la ligne 50
Dim i As Integer
For i = 11 To 51 Step 10
Feuil1.HPageBreaks.Add Before:=Cells(i, 1)
Next i
End Sub


bonne soirée
MichelXld

Génial! C'est déjà un grand pas en avant pour moi! Merci beaucoup! Je vais essayer ça, mais en attendant, j'essaie de réexpliquer mon histoire de lignes vides:

en fait, les 'groupes de lignes' ne doivent pas commencer à la fin d'un page pour se terminer sur la suivante. Ces groupes sont séparés par une ligne ne contenant aucune donnée ni aucun texte.

Par exemple:
- règle générale: un saut de page toutes les 10 lignes

- 1er groupe: lignes 1 à 3
- ligne 4 = vide
- 2ème groupe: lignes 5 à 7
- ligne 8 = vide
- 3ème groupe: lignes 9 à 11

Comme je ne peux pas scinder le 3ème groupe en 2, le saut de page ne peut pas se trouver après la ligne 10. Je voudrais donc supprimer la ligne 8 (vide) et insérer un saut de page après la ligne 7.

Je ne suis pas vraiment sûre que ce soit plus clair... :S Enfin, peut-être quand même, avec l'exemple... J'ai toujours eu quelques difficultés à m'exprimer!

So

Message édité par: sophisme, à: 23/01/2006 18:04