Bonsoir

dans mon classeur j'ai des bouttons d'impression avec des codes suivants:


Pour la feuille DECSALAIRECOUV

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("DECSALAIRECOUV").PageSetup.PrintArea = "A1:H100"
Pour la feuille DECSALAIRE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Select Case Range("I5").Value
Case 1
ActiveSheet.PageSetup.PrintArea = "A1:J35": ActiveSheet.PrintOut
Case 2
ActiveSheet.PageSetup.PrintArea = "A1:J71": ActiveSheet.PrintOut
Case 3
ActiveSheet.PageSetup.PrintArea = "A1:J107": ActiveSheet.PrintOut
Case 4
ActiveSheet.PageSetup.PrintArea = "A1:J143": ActiveSheet.PrintOut
Case 5
ActiveSheet.PageSetup.PrintArea = "A1:J179": ActiveSheet.PrintOut
Case 6
ActiveSheet.PageSetup.PrintArea = "A1:J215": ActiveSheet.PrintOut
Case 7
ActiveSheet.PageSetup.PrintArea = "A1:J251": ActiveSheet.PrintOut
Case 8
ActiveSheet.PageSetup.PrintArea = "A1:J288": ActiveSheet.PrintOut
Case 9
ActiveSheet.PageSetup.PrintArea = "A1:J324": ActiveSheet.PrintOut
Case 10
ActiveSheet.PageSetup.PrintArea = "A1:J360": ActiveSheet.PrintOut
 
End Select
Pour la feuille occassionnelles

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Select Case Range("G2").Value
Case 1
ActiveSheet.PageSetup.PrintArea = "A1:G26": ActiveSheet.PrintOut
Case 2
ActiveSheet.PageSetup.PrintArea = "A1:G52": ActiveSheet.PrintOut
Case 3
ActiveSheet.PageSetup.PrintArea = "A1:G78": ActiveSheet.PrintOut
Case 4
ActiveSheet.PageSetup.PrintArea = "A1:104": ActiveSheet.PrintOut
End Select
Pour la feuille stagiaires

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Select Case Range("J2").Value
Case 1
ActiveSheet.PageSetup.PrintArea = "A1:K27": ActiveSheet.PrintOut
Case 2
ActiveSheet.PageSetup.PrintArea = "A1:K56": ActiveSheet.PrintOut
Case 3
ActiveSheet.PageSetup.PrintArea = "A1:K85": ActiveSheet.PrintOut
Case 4
ActiveSheet.PageSetup.PrintArea = "A1:K114": ActiveSheet.PrintOut
End Select
Comment fusionner ces codes merci pour le rendre un seul code en vu de lancer l'impression par un seul boutton