Discussion :

[David2304]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[David2304]

Merci Wilfried c'est exactement le code que je cherchais