De: Jack daniel's Objet: Re: Coupure de page automatique Date : jeudi 29 juin 2000 01:32 Solution 1 Tu règles ta marge basse afin que chaque page ne fasse que 15 lignes. Solution 2 Sub SAUTS_DE_PAGES_TOUTES_LES_X_LIGNES() Application.screenupdating = False '---question pour définir le nombre de ligne par page LIGNES_PAR_PAGE = InputBox("", " COMBIEN DE LIGNES PAR PAGE ?", 15) '---suppression des anciens sauts de page manuels Cells.Select: ActiveSheet.ResetAllPageBreaks '---combien de lignes à traiter ? 'en partant du bas pour éviter les lignes vides "rencontrables" avec Selection.End(xldown) [A65536].Select: Selection.End(xlUp).Select: LIGNES_COMBIEN = ActiveCell.Row '---insertion des sauts de pages COMPTEUR = 0 For x = LIGNES_PAR_PAGE To LIGNES_COMBIEN Step LIGNES_PAR_PAGE LIGNE_SUIVANTE = x + 1 'car le saut de page se met avant la ligne active rows(LIGNE_SUIVANTE).Select ActiveWindow.Selectedsheets.hpagebreaks.Add Before:=ActiveCell COMPTEUR = COMPTEUR + 1 Next x '---position curseur Application.screenupdating = True: [A1].Select '---affichage du résultat MsgBox "CE TRAITEMENT A GÉNÉRÉ VERTICALEMENT " & COMPTEUR & " PAGES DE " & LIGNES_PAR_PAGE & " LIGNES.", , " R É S U L T A T" End Sub A toi de choisir la solution qui te convient le mieux... Mais d'après moi, il n'y a pas photo... daniel Pierre a écrit : > Bonjour, > > Chaque semaine je reçois un fichier de plusieurs centaines de lignes. > Or je ne devrais imprimer que 15 lignes par page... > Comment crér une petite macro qui crérait une coupure de page toute > les 15 lignes? > > Merci d'avance > Pierre