Définir une zone d'impression pour un PDF selon une donnée saisie

Bonjour à tous,

Tout d'abord encore merci pour vos aides précédentes !

Voici mon besoin : je souhaite définir ma zone d'impression selon la donnée notée en fin de tableau.

Pour vous expliquer j'ai un tableau qui peut faire de 1 à 3 pages. Il se termine toujours par la dernière ligne qui est "Total général". (il est construit avec des SI et SIERREUR).
Un PDF se génère avec 3 pages - mais je veux lui indiquer par une macro de définir la zone d'impression avec :
- des colonnes A à N,
- jusqu'à la ligne où il est noté dans la cellule "Total général". (qui peut se trouver de la cellule A27 à A139).

N'ayant rien fait de ce genre auparavant, je ne sais pas le faire (forcément ) et je ne sais pas si c'est faisable.
Je vous remercie pour votre aide et vos indications !

Sandrine

Bonjour Sandrine

C'est tout à fait faisable

Et si j'ai bien compris voici une possibilité

Sub DéfinirZI()
  Dim dLig As Long
  ' Avec la feuiille à traiter
  With ThisWorkbook.Sheets("MaFeuille")
    ' Trouver la dernière cellule remplie = Total général
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    ' Définir la Zone d'Impression
    .PageSetup.PrintArea = "$A$1:$N$" & dLig
  End With
End Sub

A+

Merci BrunoM45 !
Mais comment je dis : de s'arrêter à la ligne notée "Total Général"?
Car en fait en colonne A, j'ai une formule : TEXTE(B46;1)

Merci

Re,

Vous avez quelque chose après "Total Général" en colonne A ?

Vous déposeriez un fichier comme préconisé, ce serait plus simple, non

A+

Après il y a des formules.

bonjour BrunoM45,Sandrine,

        dLig = [AGGREGATE(14,6,IF(Mafeuille!A27:A139="Grand Total",ROW(Mafeuille!A27:A139),0),1)]

Tu peux pas savoir comment je te suis reconnaissante !!!!

Merci infiniment !!!

Très belle journée

Merci à vous deux pour votre temps, ça fonctionne - vous avez illuminé ma journée !