Discussion :

[Djromé]

Salut les Kracks,

Je souhaiterai obtenir une mise en page bien défini et qui imprime ensuite automatiquement des onglets précisés dans une plage de cellule au préalabe:

Code :

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

1
2
3
4
For each cell in maplage
moncode (hidecolumns, mise en page...)
Print 
Next cell

En effet, j'ai un nombre important d'onglet mais seule une trentaine doivent être imprimés. Aussi, plutôt que de dire : Ongletmachin1.select etc...
je souhaiterai obtenir une boucle sur les cellules contenues dans une plage définie avec le nom de chaque onglets

Bonne journée

[DeaD78]

Salut,

Quelque chose de ce genre devrait répondre à ta demande :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 
For i = 1 To 3
    Sheets("Feuil" & i).PageSetup.PrintArea = "$A$1:$E$10" 'Zone à imprimer
    'Rajoute la mise en page que tu souhaites
    Sheets("Feuil" & i).PrintOut Copies:=1, Collate:=True
Next
 
End Sub

Tu devras adapter : ici mes onglets s'appellent Feuil1, Feuil2 etc. Pour mes onglets 1 à 3 donc, je définis la plage à imprimer et j'envoie ça à l'imprimante.

Est-ce ce que tu souhaites ?

A+

[Djromé]

Salut Dead78,

Oui, effectivement c'est le genre de boucle que je souhaite faire, cependant, sur une sheet excel j'ai défini un nom à une plage de cellule contenant les noms des onglets voulus.
J'aurai aimé savoir si il y a un code VBA disant, fais une boucle sur les cellules contenues dans "nomdemaplagedecellule", du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
"i = 1 premièrecelluledunomdemaplagedecellule 'une boucle sur les cellules contenues dans le nomdemaplagedecellule
i = 1+1
Sheets(i).PageSetup.PrintArea = "$A$1:$E$10" 'Zone à imprimer
    'la mise en page souhaités
    Sheets(i).PrintOut Copies:=1, Collate:=True
Next
 
End Sub

Du genre là!? plus facile à commenter qu'à faire, mais je compte sur toi :-)
Merci en tout cas de t'être penché sur mon cas...

Sincères salutations