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! :)
 

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.
 

Pièces jointes

  • coordonnees.png
    coordonnees.png
    99.6 KB · Affichages: 32
Dernière édition:

Discussions similaires