Bonjour,
J'ai une feuille Excel qui contient 4 onglets dont un, que l'on nommera "Feuil1", qui contient 500 pages et un autre onglet "impression" pour imprimer les pages de l'onglet "Feuil1".
Lorsque je dois imprimer plusieurs pages continues de l'onglet "Feuil1", j'éxécute le code ci dessous
En B1 : j'indique la première page à imprimer et en B2, la dernière page à imprimer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Impression()
Sheets("feuil1").Select
 
   ActiveWindow.SelectedSheets.PrintOut From:=Sheets("impression").Range("B1"), To:=Sheets("impression").Range("B2"), Copies:=1, _
 PrintToFile:=False, Collate:=True
 
End Sub
Mais lorsque je dois imprimer plusieurs pages discontinues, ce code n'est pas approprié car je dois à chaque fois imprimer page par page. Ce qui est fastidieux.
Existe il un code vba où je puisse insérer les numéros de pages discontinues à imprimer et executer le code

Merci de votre aide