L lilian Guest 8 Juillet 2002 #1 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.
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 8 Juillet 2002 #2 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. Vote positif 0 Vote négatif
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.