Zone d'impression dynamique

Bonjour,

Je google depuis un moment et je ne parviens pas à trouver ce qu'il me faut.

Comment faire pour que la zone d'impression s'adapte à la dernière ligne dans laquelle on ajoute quelque chose?

Voir mon fichier en pièce jointe.

Merci d'avance

15suivi-doc-emis1.zip (27.51 Ko)

BOnjour

c'est bien de faire des recherches google... mais parfois il faut peut-etre faire une recherche directement sur le forum et tu serais arrivé a :

https://forum.excel-pratique.com/excel/macro-zone-d-impression-derniere-ligne-saisies-t55637.html

Fred

Oui cela aurait été plus pratique en effet.

Cela fonctionne, cependant j'ai tout de même un petit problème, la zone d'impression s'arrête à la ligne précédente, as-tu une idée du problème, j'imagine que cela est dû aux cellules fusionnées, mais comment régler cela?

Sub ZoneImpression()
With ActiveSheet.PageSetup
        .PrintArea = "H24:X" & Range("H65536").End(xlUp).Row
        .PrintTitleRows = "$1:$23"
        .FitToPagesWide = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bonjour,

Essaie donc :

Sub ZoneImpression()
    With ActiveSheet.PageSetup
        .PrintArea = "H24:X" & (Range("H65536").End(xlUp).Row + 2)
        .PrintTitleRows = "$1:$23"
        .FitToPagesWide = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Super merci,

Je me disais bien qu'il y avait une subtilité du genre mais je savais pas ou la mettre.

Merci à tous les deux

Rechercher des sujets similaires à "zone impression dynamique"