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

[Fisio]

Bonjour,

Voilà le problème : mon tableur se compose d'une mise en page redondante de la cellule R1C1 à R2668C12 soit 92*29 lignes.

Selon le nombre de mise en page (n) renseigné je souhaite établir une macro qui fait une mise en page automatique.

Par exemple si n=3 : la mise en page doit permettre d'imprimer de la cellule R1C1 à Rn*29C12 soit R1C1 à R87C12

Cordialement.

 

[Kotov]

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

Bonjour Fisio,

Je te propose le code suivant qui selectionne la plage de ton choix selon la valeur 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

Précaution : n doit être un entier positif compris entre 1 et 2259, c'est à dire acceptable par ton fichier excel (65536 lignes sous les versions antérieures à Excel 2007)

Bonne journée
Kotov

 

[Fisio]

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

Pour définir la plage ok
Par contre ma macro se poursuit par :

ActiveSheet.PageSetup.PrintArea =MaPlage

Mais rien...

 

[Kotov]

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

Re,

Tu as omis ".Address" qui délimite ta zone d'impression.

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

A +
Kotov