Saut de page

Version imprimable

Saut de page

Bonjour,

J'aimerai insérer des sauts de pages automatiquement en fonction des valeurs des cellules.
J'ai plusieurs listes de données les unes à la suites des autres et je tiens à ce que chaque liste ne soit pas sur 2 pages mais je doit pouvoir avoir plusieurs listes sur une même page pour en limiter le nombre.
Entre 2 listes, j'ai en colonne A, la veuleur "vide" de saisie.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 DEBUT = -55 FIN = 0 SAUT = 56 For J = SAUT To 3000 Step 56 DEBUT = DEBUT + 56 FIN = FIN + 56 For I = FIN To DEBUT Step -1 If Cells(I, 1) = "vide" Then Rows(I).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell TEST = I GoTo suite Else End If Next suite: Next
Le pb c'est que ma 1ère boucle "j" à lieu toutes les 56 lignes
Alors que si mon premier saut de page intervient au bout de 40 lignes, j'aimerai qu'il enchaine sur la 106ème ligne et non la 112ème

Bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
sub imprim()
      dim i as long, nbligne as integer, drapeau as boolean, ligne as long
      nbligne = 56 ' 56 lignes par page
      drapeau = false
      for i = 1 to 3000
           if cells(i,1) = "" then drapeau = true ' 
           if drapeau = true then 
               if cells(i,1)>"" then 
                   if ligne + 1 + (cells(i,1).end(xldown).row - i) > nbligne then 
                      ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=cells(i,1)
                      ligne = 0
                   end if
                   drapeau = false
               else
                   ligne = ligne + 1
               end if
           end if   
           if drapeau = false then ligne = ligne + 1
      next i
end sub

à tester, n'ayant pas de fichier test de dispo, je n'ai pas testé

19/03/2008, 11h57
David2304

Merci Wilfried c'est exactement le code que je cherchais