Problème de macro

Bonjour

comment est défini AD ?

Bonjour michel
Merci pour ta réponse
Qu'entends-tu par défini AD ?
Ma plage commence en A1 jusque la colonne AD ,mais je ne peux pas mettre de cellule ,puisque la
longueur de la plage est variable.
Crdlt

j'ai un bug sur la 3è ligne
Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD&derligne").CurrentRegion.Address
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Toujours un bug ligne3

Sub Impression1()
Range("A1:AD72").CurrentRegion.Select
DerLig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AD" & DerLig)
ActiveWindow.SelectedSheets.PrintPreview
End Sub

C'est pas vrai de lire des messages çà !!!!!

décourageant...
Bon WE

Merci pour toutes tes réponses.
J'ai 70 ans et je ne suis pas là pour me faire engue...

Bonjour à tous,

au plus simple :

Sub Impression1()
    ActiveSheet.PageSetup.PrintArea = Intersect(Range("A1").CurrentRegion, Range("A:AD")).Address
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

eric

Bonjour eric
Merci pour ta réponse.
Mes boutons sont sur une feuille autre que les feuilles à imprimer
exemple bouton1 feuille "ouvrir" feuille a imprimer "poste"

Bonjour Eric

Pour JC80

Tu vois, gamin, j'en ai 73 bien entamé comme quoi....

Bonjour, salut Michel,

tiens, j'ai dû oublier de valider la modif hier... La voici :

Sub Impression1()
    With Sheets("poste")
        .PageSetup.PrintArea = Intersect(.Range("A1").CurrentRegion, .Range("A:AD")).Address
        .PrintPreview
    End With
End Sub

eric

Bonjour eric

Cela ne fonctionne toujours pas je te mets un exemple
sur l'aperçu avant impression il n'y a qu'une cellule qui apparait A1
https://mon-partage.fr/f/RoHA0x81/
Si tu peux faire quelque chose cela m'arrangerait bien
Merci pour ton aide
Crdlt

Bonsoir eric

Ok pour la formule que tu m'as donné je l'ai modifié comme suit en gras et cela ne fonctionne pas J'aimerais avoir le moins de page possible. Pourquoi?
Sub Impression1()
With Sheets("poste")
.PageSetup.PrintArea = .Range("A1:AD1").Resize(Sheets("poste").Cells.Find("*", , , , xlByRows, xlPrevious).Row).Address
.PrintPreview
End With
Orientation=xlLandscape
Zoom=80
End Sub

Crdlt

Bonjour eric
Merci pour ta réponse je vais essayer de la mettre en place.
Crdlt

Bonsoir

Merci pour tes conseils je suis parvenu à faire à peu près ce que je voulais.
Bonne continuation.
Cordialement