Une zone d’impression au choix

Nous reprenons l’exemple présenté il y a quatre jours, mais cette fois-ci, nous avons en B19 une cellule avec une validation prenant ses valeurs dans le bloc D18:D20, et en B20 la formule =RECHERCHEV(B19;D18:E20;2;FAUX) qui ramène la description de la zone à imprimer.

La macro suivante définit la zone d’impression et affiche l’aperçu avant impression correspondant :

Sub Zone()
ActiveSheet.PageSetup.PrintArea = Range("B20").Value
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Remarque 1 – Pour définir une zone d’impression multiple, comme nous l’avons fait en E20, n’oubliez pas de séparer les blocs par des « , » ou lieu des « ; » ; en effet, Visual Basic parle en anglais !

Remarque 2 – Si les zones à imprimer se trouvent sur plusieurs feuilles du classeur, il suffit d'ajouter en F18:F20 le nom de la feuille concernée, de récupérer en B21 la feuille sélectionnée et de modifier la macro pour qu'elle sélectionne la bonne feuille.