Connaitre le nombre de ligne sur la dernière page imprimable

Bonjour,

Je cherche a connaitre le nombre de ligne sur la dernière page imprimable. Mon but étant de réduire l’échelle d'impression de la feuille si le nombre de ligne sur la dernière page est inférieur à 3-4 lignes afin de supprimer cette dernière page.

Exemple, j'ai 3 pages avec la page 3/3 qui n'a que 3 lignes. donc je passe l'échelle d'impression de 88% à 85% afin de n'avoir que 2 pages.

Merci d'avance

Cordialement

Harissa23

En réfléchissant, j'ai trouvé un solution.

Je trouve le nombre de pages et donc de saut de pages, avec la position du dernier. En connaissant mon nombre de ligne total, je peux connaitre le nombre de ligne après le dernier saut de page.

Pour définir la position du dernier saut de page :

Sub DerSautPage()
Dim j As Long
j = ActiveSheet.HPageBreaks.Count
MsgBox ActiveSheet.HPageBreaks(j).Location.Address
End Sub

Voici le code finale. (Surement optimisable avec une boucle)

Sub EchellePage()
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long

'dernière ligne colonne V
m = Range("V65536").End(xlUp).Row
n = m + 1
'Si nombre de pages inférieur à 2, va à la fin
k = ActiveSheet.HPageBreaks.Count
If k >= 2 Then
l = ActiveSheet.HPageBreaks(k).Location.Row
Else
GoTo End1
End If

'Si il moins de 3 ligne apres le dernière saut, zoom = 98
If (m + 1 - l) < 4 Then
        With ActiveSheet.PageSetup
        .Zoom = 98
        End With
        ActiveSheet.PageSetup.PrintArea = "v1:w" & n & ""
End If

'RE : Si nombre de pages inférieur à 2, va à la fin
k = ActiveSheet.HPageBreaks.Count
If k >= 2 Then
l = ActiveSheet.HPageBreaks(k).Location.Row
Else
GoTo End1
End If

'Si il moins de 3 ligne apres le dernière saut, zoom = 96
If (m + 1 - l) < 4 Then
        With ActiveSheet.PageSetup
        .Zoom = 96
        ActiveSheet.PageSetup.PrintArea = "v1:w" & n & ""
        End With
End If

End1:

End Sub

ActiveSheet.PageSetup.PrintArea = "v1:w" & n & "" <--- obligatoire pour rafraichir la page afin de re-tester les lignes après le saut de pages

Voila, si vous avez des remarques ou autre, je suis prenneur

Cdt

Harissa23