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

[Quitus]

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]

Bonjour,
Un essai?

derlig = Range("B15000").End(xlUp).Row
ActiveWorkbook.Worksheets(3).PageSetup.PrintArea = "$A$1:$H$" & derlig

A+
Claudy

 

[kiki29]

Salut, à adapter à ton contexte

Option Explicit

Sub Test()
Dim NbLignes As Long
    NbLignes = Feuil1.UsedRange.Rows.Count
    Feuil1.PageSetup.PrintArea = "$A$1:$H$" & NbLignes
End Sub

Feuil1 étant le CodeName de la feuille concernée.
De la lecture et pas seulement : Dernière ligne et la dernière colonne renseignées d'une feuille

 

[Quitus]

Bonjour Claudy!!
Ca ne fonctionne pas :/
Pourquoi tu mets "B150000"?

 

[Claudy]

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

 

[kiki29]

Re, à adapter à ton contexte

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.

 

[kiki29]

Salut, à toi de voir et poursuivre/adapter à ton contexte