VBA - Nombre de sauts de page sur une feuille

Bonjour,

Je cherche à déterminer le nombre de sauts de page verticaux avec le code suivant :

Sub impr()
    i = Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & i
    MsgBox "Nbre de sauts de page verticaux : " & ActiveSheet.VPageBreaks.Count
End Sub

Résultat :

Je joins le classeur :

Daniel

Bonsoir DanielC

D'après toi combien de saut de page devrait-on trouver? puisque moi je trouve chaque fois qu'1 saut de page vertical

Slts

bonjour DanielC,boss_68

  MsgBox ActiveSheet.PageSetup.Pages.Count

Bonsoir,

On devrait trouver 9, ce qui fait 18 pages comme indiqué sur l'image, dans la barre d'état.

Daniel

Bonjour à tous,

@ BsAlv :

Merci, ça fonctionne. Est-ce que tu as une idée pour les 2341 de :

ActiveSheet.PageSetup.Pages.Count

Daniel