Brigitte
XLDnaute Barbatruc
Bonjour,
Il y a quelque temps, Pierrot93 me sauvait une fois de plus en me trouvant une macro qui me permettait d'imprimer ma dernière page d'un document pouvant en faire plusieurs, sans faire d'apercu impression et sans choisir le numéro... Elle trouvait toute seule la dernière page. Nickel.
C'était ici : https://www.excel-downloads.com/thr...re-page-dune-zone-dimpression-definie.130234/
Mais ce jour, je découvre un petit bug, à mon avis lié à cette macro, et j'ai beau visualiser le code, je vois pas où..
En fait, dès que je veux faire un copier coller dans cette feuille, le copier marche, mais le coller se désactive dans la barre, donc IMPOSSIBLE de faire un copier/coller. Or il se trouve que souvent j'ai besoin de reproduire certaines données.
Donc je copie, et aussitôt que je me positionne dans une autre cellule (en bas), le coller devient inactif dans la barre outils.
Bizarre, embêtant...
Pourriez vous jeter un oeil et me dire s'il y a qq chse à faire ?
Voici le code :
Il y a quelque temps, Pierrot93 me sauvait une fois de plus en me trouvant une macro qui me permettait d'imprimer ma dernière page d'un document pouvant en faire plusieurs, sans faire d'apercu impression et sans choisir le numéro... Elle trouvait toute seule la dernière page. Nickel.
C'était ici : https://www.excel-downloads.com/thr...re-page-dune-zone-dimpression-definie.130234/
Mais ce jour, je découvre un petit bug, à mon avis lié à cette macro, et j'ai beau visualiser le code, je vois pas où..
En fait, dès que je veux faire un copier coller dans cette feuille, le copier marche, mais le coller se désactive dans la barre, donc IMPOSSIBLE de faire un copier/coller. Or il se trouve que souvent j'ai besoin de reproduire certaines données.
Donc je copie, et aussitôt que je me positionne dans une autre cellule (en bas), le coller devient inactif dans la barre outils.
Bizarre, embêtant...
Pourriez vous jeter un oeil et me dire s'il y a qq chse à faire ?
Voici le code :
Code:
Sub ImpressionDerniere()
Dim zi As String, s As String
s = ActiveWindow.VisibleRange.Address
With ActiveSheet.PageSetup
zi = .PrintArea
'.PrintArea = ActiveWindow.VisibleRange.Address
.PrintArea = Range(Cells(Split(Split(s, ":")(0), "$")(2), 1), _
Cells(Split(Split(s, ":")(1), "$")(2), 11)).Address
'prévisualisation de l'impression
'ActiveSheet.PrintPreview
'impression
ActiveSheet.PrintOut
.PrintArea = zi
End With
End Sub