marmotte18
XLDnaute Impliqué
Bonjour,
J'ai un tableau de 4 colonnes, avec un nombre variable de lignes. Je voudrai définir par VBA la zone d'impression.
Voilà l'endroit où je bloque :
Merci par avance à toutes celles et à tous ceux qui voudront bien m'aider
J'ai un tableau de 4 colonnes, avec un nombre variable de lignes. Je voudrai définir par VBA la zone d'impression.
Voilà l'endroit où je bloque :
Code:
Sub DefZoneImpression()
Dim ZoneImpression As Range, DernColBase As Integer, DernLigneColA As Integer
DernColDestination = 4 'A modifier selon le nombre de colonnes
DernLigneColA = Range("A65536").End(xlUp).Row 'N° ligne de la dernière cellule col A remplie
Set ZoneImpression = Range("A3", Cells(DernLigneColA, DernColDestination))
ZoneImpression.Select
'Instruction ERRONNEE :
'--------------------
'ActiveSheet.PageSetup.PrintArea = ZoneImpression
'=> il faudrait que je puisse récupérer une instruction sous la forme
ActiveSheet.PageSetup.PrintArea = "A3:D8"
Range("A3").Select
End SubMerci par avance à toutes celles et à tous ceux qui voudront bien m'aider