Autres Définir une zone d'impression en vba

a26 · 11 Mai 2022

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 · 11 Mai 2022

bonjour
essaie en partant du bas..

VB:

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

a26 · 11 Mai 2022

vgendron à dit:
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.

Autres Définir une zone d'impression en vba

a26

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

a26

XLDnaute Occasionnel

Discussions similaires