Discussion :

[sebnko]

Bonjour,
Je cherche à imprimer sur une feuille A4 deux plages de cellules différentes les une en dessous des autres. La plage 1 serais variable tandis que la plage 2 serais fixe.
Mon idée était d 'imprimer en format paysage et en propriétés de l'imprimante y mettre 2 pages par feuilles.
le problème c'est que je n'arrive pas à sélectionner ces deux plages, donc je tente de passer via une macro mais malheureusement je suis encore novice...
Quelqu"un aurait un idée ?

Merci par avance
Cordialement

Séb

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essai()
' essai Macro
 A = Worksheets("feuille1").PageSetup.PrintArea = "$A$1:$i$19 ; A2:B6"
 B = Worksheets("feuille 2").PageSetup.PrintArea = "$A$1:$i$19"
 
 pr = A & B
 
 pr.PrintPreview
    PrintOut = pr
    End Sub

[jeanmidudu]

Je te conseille de regarder la fonction UNION si tu veux le faire par VBA

[sebnko]

Merci pour ta réponse jeanmidudu mais je ne sais pas du tout comment procéder, je suis encore trop novice.

[jeanmidudu]

Sinon il y a ce topic qui avait été ouvert :
http://www.developpez.net/forums/d50...non-contigues/

[sebnko]

Merci pour ton aide j'ai réussi en faisant :

Code :

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

1
2
Application.Union(Range("$B$7:$N$27"), Range("AG1:AS45")).Select
Selection.PrintOut Copies:=1