Créer des sauts de page

Bonjour à tous,

Je génère des kanbans de manière automatique avec VBA. Le nombre de kanban est aléatoire. Il peut être de 3 comme 10. La hauteur des kanbans est identique. Je voudrais qu'en fonction du nombre de kanban saisis, en vba je créé les sauts de page associés pour pourvoir les imprimer.

J'ai déjà regarder sur le net, mais je n'y arrive pas... Em mode normal, j'ai bien les lignes voulues surlignées, mais en mode saut de page je n'ai rien...

Pour le moment, je fait un saut de page toutes les x lignes (ici 61).

Ci-dessous mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub PRINT_KANBAN() Worksheets("KANBAN_EI").ResetAllPageBreaks Dim LastRow As Long   LastRow = Worksheets("KANBAN_EI").Range("A" & Worksheets("KANBAN_EI").Rows.Count).End(xlUp).Row Worksheets("KANBAN_EI").HPageBreaks.Add Before:=Rows(61) Worksheets("KANBAN_EI").HPageBreaks.Add Before:=Rows(121) Worksheets("KANBAN_EI").HPageBreaks.Add Before:=Rows(LastRow + 1)   End Sub

---

Merci par avance pour votre aide.

Bonjour,

Combien rentre-il de kanban en hauteur par feuille?

CDlt

Salut.

Que ce soit des kanbans ou n'importe quoi d'autre, on s'en fout un peu, en fait ;) Ce qu'il faut, c'est établir la règle qui permet de poser les sauts de lignes. Pourrais-tu montrer une copie d'écran et exprimer la règle qui permet de poser les sauts de page?

Par exemple:

• Toutes les x lignes à partir de la ligne y;
• Les kanbans sont tous remplis en A et il y a une ligne vide de séparation entre chaque;
• ...

Bonjour,

Effectivement, j'étais plus parti sur un nombre de lignes fixes.

Dans un premier je compte mon nombre de lignes totales générées (pour déterminer un pseudo end of file), puis je crée un saut de page toutes les 61 lignes jusqu'à mon end of line...

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim LastRow As Long Dim Row As Long   Feuil3.ResetAllPageBreaks LastRow = Feuil3.Range("a:a").Find("EOF").Row For Row = 62 To LastRow Step 61 Feuil3.HPageBreaks.Add Feuil3.Range("a" & Row) Next Row End Sub

---

Tes lignes doivent être fort petites pour en accepter 61 par page...

Ici, j'ai mis "EOF" dans une cellule de la colonne A pour matérialiser ton End of Line... En fonction de la structure des tes kanbans, tu pourrais déterminer la fin du fichier autrement... A toi de voir.