XL 2021 Quand mon devis déborde sur la page 2 ?

[Claudinedu13]

Bonjour,

Quelquefois les dernières lignes de mes devis débordent sur la page 2, ce que je recherche c'est que lorsque je clique sur le bouton "Nombre lignes" ça m'affiche dans "J3" le nombre de lignes qui débordent sur la page 2 (dans mon exemple il déborde de 3 lignes)

J'espère que vous comprendrez ma demande ...

Merci

 

[sylvanu]

Bonjour Claudine,
Inspiré de ce lien , un essai en PJ avec :

Sub SautPage()
    On Error GoTo fin
    Dim sh As Worksheet, i&, Collection_SautPage As HPageBreaks, SautPage As HPageBreak
        [J2:J3].ClearContents
        Set sh = ActiveSheet
        Set Collection_SautPage = sh.HPageBreaks
            With Collection_SautPage
                For i = 1 To .Count
                    [J2] = "Saut de page N°" & i & " : entre les lignes " & .Item(i).Location.Row - 1 & " et " & .Item(i).Location.Row
                Next i
                On Error Resume Next
                [J3] = [A1000].End(xlUp).Row - (.Item(1).Location.Row - 1)
            End With
fin:
    Set sh = Nothing
    Set Collection_SautPage = Nothing
End Sub

 

[Phil69970]

Bonjour à tous

@Claudinedu13

Je te propose ce fichier revus à ma sauce 😉

Inspiré de cette solution 😉🤣

Merci de ton retour

 

[Claudinedu13]

Bonjour @sylvanu et @Phil69970
J'adopte la solution de Phil qui semble répondre le mieux à ma demande.
Merci à tous les 2

 

[patricktoulon]

bonsoir à tous
là encore je dirais que les tableaux structurés feraient très bien l'affaire
c'est si simple d'insérer une ligne ou 10 ou 50 et de laisser le footer là ou il est
et de déterminer la zone au dernier moment et de laisser l'imprimante faire ces pages
je dis ça moi je dis rien 😉