[RESOLU]Imprimer jusqu'a la dernière ligne remplie

[nrdz83]

Bonjour à tous,

je cherche à imprimer jusqu'a la dernière ligne remplie. Pour cela j'utilise ce code mais il m'imprime jusqu'a la ligne 19 je ne sais pourquoi.

Le code ci-dessous est-il correct?
j'ai une liste de validation dans la colonne A, cela peut-il venir de là ?

Sub impression_listing_formation()
Dim DerLig As Long
DerLig = [A65000].End(xlUp).Row
Range("A2:AM2").Name = "Titres"
With ActiveSheet.PageSetup
.PrintArea = "$A$2:$AM$" & DerLig
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveSheet.PrintPreview
End Sub

Par avance merci

 

[gosselien]

Re : Imprimer jusqu'a la dernière ligne remplie

Bonjour,

ici ça fonctionne mais toutes tes lignes en colonne A sont elles remplies ?

P

 

[nrdz83]

Re : Imprimer jusqu'a la dernière ligne remplie

Bonsoir non j'ai que les 6 premières lignes de remplies et ça imprime jusqu'a la ligne 19 . Merci pour l'info du code je vais creuser merci.

 

[gosselien]

Re : Imprimer jusqu'a la dernière ligne remplie

s'il trouve 19 avec DerLig = [A65000].End(xlUp).Row c'est que tu as qq chose entre la 6 et la 19 et spécialement la 19, un espace peut être ?

P.

 

[nrdz83]

Re : Imprimer jusqu'a la dernière ligne remplie

Re bonsoir,
je ne sais pas pourquoi ça me crée une zone d'inpression

='Formations '!$A$2:$AM$19

j'ai beau supprimer cette zone d'impression ça le recrée constament.

merci

 

[chris]

Re : Imprimer jusqu'a la dernière ligne remplie

Bonjour

Ce n'est pas la zone d'impression qu'il faut supprimer mais les lignes 7 à 19 qui ne semblent pas vides.

 

[nrdz83]

Re : Imprimer jusqu'a la dernière ligne remplie

Bonjour à tous,
merci pour votre aide aprés plusieurs bidouillage j'ai réussi, impossible de dire d'ou cela provenait (certainement des lignes non vides comme le précise CHRIS).
Mon code fonctionnait donc correctement,

encore merci à tous