Discussion :

[Lao Pi]

Bonjour,

en vba je souhaite définir une zone d'impression de colonnes non contigues et de lignes variable.
par exemple les ligne allant de 1 à n
et les colonnes 1 à 6, 8 à 10, et 13
mais je n'arrive pas à en écrire le code!
Quelqu'un aurait-il un tuyau ?
merci à tous

[tomy7]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A1:A7,C1:C8,E1:F9,G1:G10").Select
    Range("G10").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$A$7,$C$1:$C$8,$E$1:$F$9,$G$1:$G$10"

voici le code avec l enregistreur

tu selectionne tes colonnes , tes lignes tout en gardant le doigt sur CTRL et c est regle

[ouskel'n'or]

Sans selection, utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Plage as range
    Set Plage = Union(Range(un),range(deux)...)
    ActiveSheet.PageSetup.PrintArea = Plage.address

Un coup d'oeil dans l'aide en ligne te renseignera sur Union.

tu peux également utiliser un string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    plage = Cells(k, 6).Address + "," + Cells(k, 7).Address + "," + Cells(k, 10).Address
   ActiveSheet.PageSetup.PrintArea = Plage

Maintenant, si tu veux sélectionner manuellement ta plage dans une macro, utilise
Correction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Plage as range
   Set Plage = Application.inputbox("Saisir la plage " & vbcr & _
   "Tenir ctrl appuyé pour sélectionner plusieurs cellules ou ensembles de cellules", type:=8)
   ActiveSheet.PageSetup.PrintArea = Plage.address