Modifier macro de zone d'impression automatique Fermé

Question

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 Integerderline = Range("A65536").End(xlUp).RowActiveSheet.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!

Gyrus · Answer

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+

Maurice · Answer

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

Modifier macro de zone d'impression automatique

2 réponses

Discussions similaires