Discussion :

[Supernatural]

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 :

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

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.

[ARTURO83]

Bonjour,

Combien rentre-il de kanban en hauteur par feuille?

CDlt

[Pierre Fauconnier]

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;
• ...

[Supernatural]

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...

[Pierre Fauconnier]

Code :

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

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.