Comptage entre les sauts de pages

[iffick]

Bonjour, y a-t'il un moyen de demander un comptage entre les sauts de pages genre nbval ou nb.si ou alors quelqu'un a peut-être une petite macro 😱

Merci d'avance.

 

[DoubleZero]

Re : Comptage entre les sauts de pages

Bonjour, iffick, le Forum,

Peut-être ainsi ?

Option Explicit
Sub Saut_de_page_totaliser()
    Dim i As Long, compteur As Double
    Application.ScreenUpdating = False
    compteur = 0
    For i = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        If Rows(i).PageBreak <> xlNone Then compteur = compteur + 1
    Next
    MsgBox "L'onglet " & ActiveSheet.Name & " comporte " & compteur + 1 & " page(s)"
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂