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

  • Initiateur de la discussion Initiateur de la discussion nrdz83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nrdz83

XLDnaute Impliqué
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
 
Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
168
Réponses
5
Affichages
937
Retour