Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

Nombre de sauts de page dans une plage

2 réponses
Avatar
rmill...
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.

2 réponses

Avatar
MichD
Le 01/10/21 Í  13:04, 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
Avatar
rmill...
Une fois de plus merci. J'ai pu adapter le code Í  mon besoin.