Nombre de sauts de page dans une plage

Le 01/10/21 Í  13:04, rmill...@gmail.com a écrit :

Bonjour,

Dans une feuille j'ai des plages nommées. Je cherche Í  savoir le nombre de HPageBreaks dans 2 de ces plages.

J'arrive Í  connaitre ce nombre pour la feuille mais pas précisément pour une plage.

Par exemple ...
MsgBox (Feuil17.Range("CN_RapInRangeAudit").HPageBreaks.Count)
ne fonctionne pas mais
MsgBox (Feuil17..HPageBreaks.Count) fonctionne.

Sauriez-vous quel code utiliser?

Merci Í  l'avance.

Bonjour,

As-tu essayé comme ceci :

'---------------------------------------
Sub test()

Dim Rg As Range, Hp As HPageBreak
Dim Arr(), Elt As Variant, Compteur As Long

'toto et titi, le nom des 2 plages nommées
Arr = Array("toto", "titi")

With Worksheets("Feuil1") 'Nom onglet feuille Í  adapter
For Each Elt In Arr
Set Rg = .Range(Elt)
For Each Hp In .HPageBreaks
If Not Intersect(Rg, .Range(Hp.Location.Address)) Is
Nothing Then
Compteur = Compteur + 1
End If
Next
Next
End With
If Compteur <> 0 Then
MsgBox "La feuille contient " & Compteur & " sauts horizontaux de
page."
End If

End Sub
'---------------------------------------

MichD

Une fois de plus merci. J'ai pu adapter le code Í  mon besoin.