XL 2013 Définir ma zone d'impression avec un nombre de ligne qui n'est pas fixe

Quitus

XLDnaute Nouveau
Bonjour je souhaite enregistrer un Excel en pdf à l'aide d'une macro et généralement je le fais avec cette fonction:

ActiveWorkbook.Worksheets(3).PageSetup.PrintArea = "$A$1:$H$42"

Sauf que je dois maintenant faire un enregistrement avec un nombre de ligne ( je crée des graphiques les uns en dessous des autres ) qui change avec ma macro. Je souhaiterais donc obtenir une zone d'impression tant qu'il y a un graphique. Quelqu'un aurait il une solution?

Je vous remercie par avance! :)
 

Claudy

XLDnaute Accro
Bonjour,
Un essai?
VB:
derlig = Range("B15000").End(xlUp).Row
ActiveWorkbook.Worksheets(3).PageSetup.PrintArea = "$A$1:$H$" & derlig
A+
Claudy
 

Claudy

XLDnaute Accro
Re bonjour,
ça pourrait être N'importe quelle colonne, pour aller chercher la dernière ellule non vide.
A+
Claudy
 

kiki29

XLDnaute Barbatruc
Re, à adapter à ton contexte
VB:
Option Explicit

Sub CoordonneesGraphes()
Dim Ch As ChartObject
Dim sNomGraphe As String
Dim Graphe As ChartObject
    ShDatas.Activate
    For Each Ch In ShDatas.ChartObjects
        sNomGraphe = Ch.Name
        Set Graphe = ShDatas.ChartObjects(sNomGraphe)
        With Graphe
            Debug.Print .TopLeftCell.Address, .BottomRightCell.Address
        End With
    Next Ch
    Set Graphe = Nothing
End Sub
ShDatas étant le CodeName de la feuille concernée.
 

Fichiers joints

Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas