Bonjour
steve15 a écrit :
si je ferme l'aperçu avant impression et que je le ré-ouvre je vois 50 pages et toutes mes lignes vides en dessous.
Le code ci-dessous nomme la zone et ainsi tu peux te servir de l'aperçu avant impression.
Mais si tu ajoutes des lignes ou si tu en enlèves, il faudra cliquer sur le bouton affecté à la macro pour que les modifications soient prises en compte.
Sub Imprime()
Dim derlg As Integer
derlg = Range("B65536").End(xlUp).Row
Set r = ActiveSheet.Range("A1:AL" & derlg): r.Name = "Ma_Zone"
ActiveSheet.PageSetup.PrintArea = [Ma_Zone].Address
End Sub
steve15 a écrit :
J'aimerais sil te plaît juste que tu me dises comment sélectionner A à AL et jusqu'à la fin de mes lignes remplies... rien de plus ..
J'ai enlevé cette ligne dans le code :
Range("A1:AL" & derlg).PrintPreview 'PrintOut pour imprimer directement
Amicalement
Nad