Sub AddBreaks_FromStartRow_Step10()
StartRow = 20
FinalRow = Range("A65536").End(xlUp).Row
LastVal = Cells(StartRow, 1).Value
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = ""
For i = StartRow To FinalRow Step 10
ActiveSheet.HPageBreaks.Add _
Before:=Cells(i, 1)
Next i
End Sub
Sub AddBreaks_FromStartRow_AfterAnyChanges()
StartRow = 20
FinalRow = Range("A65536").End(xlUp).Row
LastVal = Cells(StartRow, 1).Value
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = ""
' snippet trouvé quelque part sur le web
For i = StartRow To FinalRow
ThisVal = Cells(i, 1).Value
If Not ThisVal = LastVal Then
ActiveSheet.HPageBreaks.Add _
Before:=Cells(i, 1)
End If
LastVal = ThisVal
Next i
End Sub
Sub RemoveHBreaks()
On Error Resume Next
For j = ActiveSheet.HPageBreaks.Count To 1 Step -1
ActiveSheet.HPageBreaks(j).Delete
Next j
On Error GoTo 0
End Sub
Sub RemoveVBreaks()
On Error Resume Next
For j = ActiveSheet.VPageBreaks.Count To 1 Step -1
ActiveSheet.VPageBreaks(j).Delete
Next j
On Error GoTo 0
End Sub