Bijour a tous
Voici ce que je desire faire:
j'ai pleins de feuilles, et je souhaite imprimer seulement celles qui repondent a un critere concernant leur nom (la propriete right est egale a un certain mot).
Treve de bla bla, voici mon code:
ou Zoneimpr est dans un module:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 For Each Sh In ActiveWorkbook.Worksheets If Right(Sh.Name, 2) = " m" Then ZoneImpr "A", 1, "S", 10, Sh End If Next Sh
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Sub ZoneImpr(ColBeg As String, LiBeg As Integer, ColEnd As String, LiEnd As Integer, _ PrintSheet As Excel.Worksheet) PrintZon = Range(Cells(LiBeg, ColBeg), Cells(LiEnd, ColEnd)).Address PrintSheet.PageSetup.PrintArea = PrintZon End Sub
Voila j'aimerais lancer la boite de dialogue imprimer d'Excel pour que l'utilisateur regle ce qu'il veut, et quand il clique sur ok ca n'imprime que les feuilles retenues.
Donc je pense que je ne suis pas loin, il me manque seulement le code pour stocker les feuilles selectionnees dans une variable.
Merci d'avance pour vos precieuses idees
Partager