impression jusqu'a dernière ligne remplie

[fr832]

Bonjour à tous,
j'utilise ce code pour imprimer en PDF

Sub impression_PDF()

    Range("A3:G13").Select
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
End Sub

Je voudrais modifier ce code de façon à remplacer la zone "A3:G13" par une zone automatique en fonction de la dernière ligne remplie.
Les colonnes vont de A à G .

Par avance merci,
mes amitiés à tous

 

[CHALET53]

Re : impression jusqu'a dernière ligne remplie

Quelque chose du genre : dès lors que la cellule D3(dans l'exemple) est dans la cible et qu'il n'y a pas de zone à blanc dans la plage voulue

Range("d3").Select
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1

 

[Hippolite]

Re : impression jusqu'a dernière ligne remplie

Bonjour,
Tu peux aussi utiliser

ActiveSheet.UsedRange.Select

 

[fr832]

Re : impression jusqu'a dernière ligne remplie

bonjour, chalet et hippolite ça fonctionne impec ton code hippolite.
Merci pour votre aide à tous les deux amitiés.