Définition automatique de la zone d'impression

[marmotte18]

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 :

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 Sub

Merci par avance à toutes celles et à tous ceux qui voudront bien m'aider

 

[bqtr]

Re : Définition automatique de la zone d'impression

Bonjour marmotte,

- Modifie le type de variable de ZoneImpression en String.
- puis modifie comme ceci :

'.../...
ZoneImpression = Range("A3", Cells(DernLigneColA, DernColDestination)).Address
ActiveSheet.PageSetup.PrintArea = ZoneImpression
'.../...

A+

 

[marmotte18]

Re : Définition automatique de la zone d'impression

Bonjour,

Je viens de trouver une réponse à mon problème :

Sub DefZoneImpression()
    Dim DernLigneColA As Integer, DernColDestination As Byte
    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
    ActiveSheet.PageSetup.PrintArea = "A3:D" & CStr(DernLigneColA)
    
    Range("A3").Select
End Sub