créer une macro pour tableau extensible

[archi]

Bjr,

j'ai une macro de type:

Sub Definir1()
Range("B4:BE55").Select
ActiveSheet.PageSetup.PrintArea = "$B$4:$BA$55"
End Sub

sachant que j'insert des lignes à mon tableau, j'aimerai que cette macro suit la nouvelle plage de cellules ??

merci d'avance
bye

 

[PascalXLD]

Re : créer une macro pour tableau extensible

Bonjour

Essaies

Sub Definir1()
dim MaLigne as integer
MaLigne=Range("B65536").end(xlup).row
ActiveSheet.PageSetup.PrintArea = "$B$4:$BA$" & MaLigne
End Sub

 

[archi]

Re : créer une macro pour tableau extensible

Merci Pascal
bye