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.
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
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
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