Modifier macro de zone d'impression automatique

ButteDuLac Messages postés 495 Date d'inscription   Statut Membre Dernière intervention   -  
 Maurice -
Bonjour,

D'abord, mes connaissances en VBA sont très légères.
J'ai trouvé une macro par recherche Google, qui répond à mon besoin de définir ma zone d'impression automatiquement selon les données entrées dans un tableau.
J'ai trouvé ici comment l'intégrer dans mon classeur de macro personnelles.
Maintenant, comme elle est définie sur les colonnes A à C, j'aimerais aussi que la colonne soit automatisée, afin que si mon tableau comporte plus de 3 colonnes, je puisse utiliser la macro et que la zone se définisse à la fois sur les lignes et les colonnes.
Voici le code de cette macro : 

Sub ZoneImpAuto()
'
' ZoneImpAuto Macro
' Redéfinir automatiquement la zone d'impression selon informations entrées dans colonne A.
'
Dim derline As Integer
derline = Range("A65536").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:C" & derline
'
End Sub


Est-ce que quelqu'un peut m'apporter la correction pour que dernière colonne soit automatique? (Si c'est possible, bien sûr...)

Merci à l'avance pour votre aide!
A voir également:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Si le but est de définir la zone couverte par la plage utilisée dans la feuille, le plus simple est de ne pas définir de zone d'impression.


A+
0
ButteDuLac Messages postés 495 Date d'inscription   Statut Membre Dernière intervention   40
 
En fait, mon but serait de définir à la zone d'un Tableau X (tableau avec un nom). Car c'est vrai que dans mon explication, on dirait que la zone va couvrir l'ensemble des données dans la feuille.
Donc, c'est peut-être impossible? À moins qu'on puisse créer une macro paramétrée qui définit la zone à TableauN? Ou à une zone nommée?
0
Réponse 2 / 2
Maurice
 
Bonjour

a Voir si ca te va 
Sub ZoneImpAuto()
Dim DerLine, Col As Long
   'Nombre de Colonne dans la Ligne 1
   Col = Rows(1).Find("*", , , , xlByRows, xlPrevious).Column
   ' Nombre de Ligne dans la Colonne A
   DerLine = Range("A" & Rows.Count).End(xlUp).Row
   ActiveSheet.PageSetup.PrintArea = Range("A1", Cells(DerLine, Col)).Address
End Sub

A+
Maurice
0