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

recuperer le numéro de ligne qui subit le saut de page

3 réponses
Avatar
Fredo(67)
bonjour,

tout est dans le titre,
et ce bout e code, r=E9cup=E9r=E9 sur Excelabo ne semble pas fonctionner...
MsgBox (Worksheets(1).HPageBreaks(1).Location)

merci de m'=E9clairer sur l'erreur.

3 réponses

Avatar
DanielCo
Bonjour,
MsgBox Worksheets(1).HPageBreaks(1).Location.Row
à condition, bien sûr, qu'il y ait un saut de page...
Cordialement.
Daniel


bonjour,

tout est dans le titre,
et ce bout e code, récupéré sur Excelabo ne semble pas fonctionner...
MsgBox (Worksheets(1).HPageBreaks(1).Location)

merci de m'éclairer sur l'erreur.
Avatar
Fredo(67)
Merci,

effectivement, maintenant, ça marche...



Le vendredi 17 octobre 2014 10:27:58 UTC+2, DanielCo a écrit :
Bonjour,

MsgBox Worksheets(1).HPageBreaks(1).Location.Row

à condition, bien sûr, qu'il y ait un saut de page...

Cordialement.

Daniel





> bonjour,

>

> tout est dans le titre,

> et ce bout e code, récupéré sur Excelabo ne semble pas fonctionne r...

> MsgBox (Worksheets(1).HPageBreaks(1).Location)

>

> merci de m'éclairer sur l'erreur.
Avatar
MichD
Bonjour,


Sub test()
Dim nb As Long
With Worksheets("Feuil1")
nb = .HPageBreaks.Count
If nb > 1 Then
.DisplayPageBreaks = True
MsgBox .HPageBreaks(1).Location
.DisplayPageBreaks = False
End If
End With
End Sub