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

Claudinedu13

XLDnaute Junior
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
 

Pièces jointes

  • TestNbrePages&Lignes.xlsm
    23.2 KB · Affichages: 6
  • lignessurpage2.jpg
    lignessurpage2.jpg
    65.9 KB · Affichages: 10

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Claudine,
Inspiré de ce lien , un essai en PJ avec :
Code:
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
 

Pièces jointes

  • TestNbrePages&Lignes.xlsm
    22.7 KB · Affichages: 3

patricktoulon

XLDnaute Barbatruc
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
314 611
Messages
2 111 145
Membres
111 051
dernier inscrit
MANUREVALAND