Bonjour,
J'ai une page avec un nombre de tableau qui peut varier, et dont la taille n'est pas toujours la même.
Je souhaiterai pouvoir imprimer ces pages sans que les tableaux ne soient coupés et sans qu'il n'y ai qu'un seul tableau par page.
Voici le bout de code que j'ai déjà écrit...
En gros je regarde toute les 50 ligne si ma cellule est vide, si oui, alors saut de page
Je voudrais rajouter un Else, regarder à i+1, encore et encore, jusqu'à tomber sur une cellule vide. Ajout d'un saut de page, puis regarder de nouveau 50 ligne + loin.


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
Sub mise_en_forme()
'supprimer les sauts de page existants
On Error Resume Next
For i = 1 To ActiveSheet.HPageBreaks.Count
    ActiveSheet.HPageBreaks(i).Delete
Next i
 
' ajouter les nouveaux sauts de page
For i = 50 To 1000 Step 50
If Cells(i, 1) <> "" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i, 1)
Else
 
 
End If
Next i
'ActiveSheet.PrintOut ('a virer quand macro prête)
 
End Sub
Classeur1.xlsx

Une petite aide s'il vous plait?

Merci d'avance