Mise en page

[lilian]

J'aimerai figer un plage de cellule en bas de la dernière page imprimée (sachant bien sûr que je ne connaît pas à l'avance le nombre de pages) puisque j'éxécute le code depuis access en exportant des enregistrements.

 

[STéphane]

Sub test()
Set rg_plage =cells
With rg_plage
LastL = rg_plage.Find("*", , , , xlByRows, xlPrevious).Row
LastC = rg_plage.Find("*", , , , xlByColumns, xlPrevious).Column
End With
Cells(LastL, LastC).Select

'et là TU METS LE CODE POUR FIGER

End Sub


si tu fais ç àpartir d'access, il te faudra utiliser des variables objet.