Zone d'impression par rapport à texte précis

Bonjour,

Je n'arrive pas à finaliser une macro pour définir une zone d'impression.

Je souhaiterais que ma zone d'impression soit définie par rapport au texte qui se trouve dans la colonne "A".

Dès que le mot "FIN" est affiché dans cette colonne, ma zone d'impression doit s'arrêter là.

J'ai fait ça mais ça ne fonctionne pas comme je souhaite, merci d'avance

Sub Zone_imprime()
Dim DerLig As Long
    DerLig = Cells.Find("FIN", , , , xlByRows, xlPrevious).Row
    ActiveSheet.PageSetup.PrintArea = "A1:E" & DerLig
End Sub

Bonjour,

Essaie en libérant le zone d'impression de la plage précédente ...

Sub Zone_imprime()
Dim DerLig As Long

    ActiveSheet.PageSetup.PrintArea = ""
    DerLig = Cells.Find("*FIN*", , , , xlByRows, xlPrevious).Row
    ActiveSheet.PageSetup.PrintArea = "A1:E" & DerLig
End Sub

ric

Bonjour,

Merci de te pencher sur mon soucis.

Ca ne fonctionne pas, il continue de me prendre la dernière ligne de mon tableau et ne s'arrête pas lorsqu'il y a le mot "FIN" dans la colonne A

Bon j'ai finalement bidouillé et ça fonctionne, j'ai créé une cellule O1 où je recupère la ligne qui contient ce mot FIN et je l’intègre à la macro, là ça fonctionne au poil

Sub Zone_imprime()
Dim DerLig As Long

    ActiveSheet.PageSetup.PrintArea = ""
    DerLig = Range("O1").Value
    ActiveSheet.PageSetup.PrintArea = "A1:E" & DerLig
End Sub