Indiquer par une formule, dans une cellule, la fin de page

Bonjour à tous,

Existerait-il une formule ou fonction Vba qui pourrait renseigner par une valeur, une cellule se truvant juste avant la fin d'une page ?

Merci â tous

Bonjour,

Oui, c'est tout à fait possible, mais il faudrait un complément d'informations de ta part.

Cdlt.

En faite, j'aurais besoin qu'il m'écrire, par exemple, en A35 "Fin de page". (juste avant le trait signalant la fin de page) !

RE,

A tester.

Cdlt.

Option Explicit

Public Sub TEST()
Dim N As Long, nn As Long, I As Long
    With ActiveSheet
        N = .HPageBreaks.Count
        For I = 1 To N
            nn = .HPageBreaks(I).Location.Row
            .Cells(nn - 1, 1).Value = "Fin de page"
        Next I
    End With
End Sub

Merci merci Jean-Eric ! Ca marche nickel

Heu... Jean-Eric... Le code marche, mais au début, aux premières utilisations, il me retourne une erreur, et malgré ça, il exécute le code :

Erreur d'exécution '9' L'indice n'appartient pas à la sélection

C'est grave docteur ? Ca vient d'où (que je comprennes un peu mieux !)... Merci d'avance !

Bonjour,

Essaie ceci et redis moi.

Cdlt

Public Sub TEST()
Dim ws As Worksheet, n As Long, pb As HPageBreak
    Set ws = ActiveSheet
    With ws
        If .HPageBreaks.Count = 0 Then Exit Sub
        For Each pb In .HPageBreaks
            n = pb.Location.Row
            .Cells(n - 1, 1).Value = "Fin de page"
        Next pb
    End With
    Set ws = Nothing
End Sub