Excel VB : Macro pour définir une zone de texte selon une variable n

Sub DefinirPlage()
Dim MaPlage As Range
Dim n&

n = 3 ' ou par exemple n=Cells(1,1).


Set MaPlage = Range(Cells(1, 1), Cells(n * 29, 12))
MaPlage.Select
'------reste de la macro


'---- il est préférable de vider la plage en fin de macro
Set MaPlage = Nothing
End Sub

Sub DefinirPlage()
Dim MaPlage As Range
Dim n&

n = 3 ' ou par exemple n=Cells(1,1).


Set MaPlage = Range(Cells(1, 1), Cells(n * 29, 12))
MaPlage.Select
'------reste de la macro
ActiveSheet.PageSetup.PrintArea = MaPlage[color=blue].Address[/color]

'---- il est préférable de vider la plage en fin de macro
Set MaPlage = Nothing
End Sub