VBA saut de page

Merci ça fonctionne #1. mais si je veux supprimer le saut de page à la fin de mon code?

Bonjour,

Curieusement, on ne peut donc pas faire :

Dim hbk As HPageBreak
Set hbk = ActiveSheet.HPageBreaks.Add(before:=ActiveSheet.Cells(26, 1))
' et en fin de code 
hbk.Delete

On ne peut pas définir un objet pour un saut de page particulier !

De plus, il existe toujours un saut de page non défini, ce qui génère une erreur lorsqu'on explore tous les sauts de page, voici donc un code à ajouter en fin de code (tu peux mettre le Dim au début) :

Dim hbk As HPageBreak

On Error Resume Next
For Each hbk In ActiveSheet.HPageBreaks
  If hbk.Location.Address = ActiveSheet.Cells(26, 1).Address Then
    hbk.Delete
  End If
Next hbk
On Error GoTo 0

On pourrait aussi boucler jusqu'au pénultième saut de page mais ça me plait beaucoup moins :

Dim i as Integer

With ActiveSheet
  For i = 1 To .HPageBreaks.Count - 1
    If .HPageBreaks(i).Location.Address = .Cells(26, 1).Address Then
      .HPageBreaks(i).Delete
    End If
  Next i
End With