Autres Définir une zone d'impression en vba

[a26]

Bonjour,
Pouvez-vous me corriger le code ci-joint qui me sélectionne correctement les colonnes, mais ne va pas au delà de G4 alors que mon objectif est de sélectionner la dernière ligne
non vide de ma page.
Merci pour votre aide.
a26

Sub zonimpr()
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = ("A1:G" & Range("A1").End(xlDown).Row)
Application.ScreenUpdating = True
End Sub

 

[vgendron]

bonjour
essaie en partant du bas..

Sub zonimpr()
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = ("A1:G" & Range("A" &rows.count).End(xlup).Row)
Application.ScreenUpdating = True
End Sub

 

[a26]

Sub zonimpr() Application.ScreenUpdating = False ActiveSheet.PageSetup.PrintArea = ("A1:G" & Range("A" &rows.count).End(xlup).Row) Application.ScreenUpdating = True End Sub

Merci pour ton aide, cela me donne l'impression de fonctionner.
Excuse moi pour la réponse tardive, J'ai du m'absenter pour raison familiale.
Je reviendrai vers toi si j'ai un problème car je viens de tester mais très rapidement.