créer une macro pour tableau extensible

archi · 10 Octobre 2006

Bjr,

j'ai une macro de type:

Code:

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 · 10 Octobre 2006

Re : créer une macro pour tableau extensible

Bonjour

Essaies

Code:

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

archi · 10 Octobre 2006

Re : créer une macro pour tableau extensible

Merci Pascal
bye

Privacy & Transparency