Mise en page

L

lilian

Guest
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.
 
S

STéphane

Guest
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.
 

Discussions similaires

Réponses
10
Affichages
325

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla