Saut de page erreur de code ?
Bonjour à tous,
J'ai un petit problème qui n'en n'est certainement pas un:
avec un code que j'utilise j'ai un report d'infos sur ma feuille "Etiquettes" sous ce format
--> info 1
-->
--> info 2
-->
--> info 3
----------------------------------- (saut de page)
--> info 1
-->
--> info 2
-->
--> info 3
----------------------------------- (saut de page) etc.
Seulement voilà les saut de pages toutes les 5 lignes c'est moi qui les faisais manuellement jusqu'à présent. Je voudrais utiliser ce code là pour automatiser mes sauts de pages et ça marche cependant en première page figurent seulement 4 lignes. Je me doute que c'est dû au
.Rows(1).Delete
mais lorsque j'enlève ce morceau les pages suivantes sont décalées :weird:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Sub Sautdepage()
Sheets("Etiquettes").Select
Dim N As Long
Dim I As Integer
With ActiveSheet
.ResetAllPageBreaks
.Rows(1).Delete
N = .Range("A65536").End(xlUp).Row
.PageSetup.PrintArea = "A1:A900" & N
End With
For I = 1 To N / 5
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(I * 5, 1)
Next I
End Sub |
