Partager via

Worksheet.HPageBreaks, propriété (Excel)

  • Article

Renvoie une collection HPageBreaks qui représente les sauts de page horizontaux sur la feuille. En lecture seule.

Syntaxe

expression. HPageBreaks

expression Variable qui représente un objet Feuille de calcul.

Remarques

Une feuille ne peut pas contenir plus de 1 026 sauts de page horizontaux.

Exemple

Le code suivant montre comment afficher le nombre de sauts de page horizontaux plein écran et ceux de la zone d’impression.

For Each pb in Worksheets(1).HPageBreaks 
    If pb.Extent = xlPageBreakFull Then 
        cFull = cFull + 1 
    Else 
        cPartial = cPartial + 1 
    End If 
Next 
MsgBox cFull & " full-screen page breaks, " & cPartial & _ 
    " print-area page breaks"

L'exemple de code suivant ajoute un saut de page lorsque la valeur d'une cellule dans la colonne A est modifiée.

Sub AddPageBreaks() 
    StartRow = 2 
    FinalRow = Range("A65536").End(xlUp).Row 
    LastVal = Cells(StartRow, 1).Value 
    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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.