Fusionner 4 codes

Version imprimable

Fusionner 4 codes

Bonsoir

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

Pour la feuille DECSALAIRECOUV

Code:

Sheets("DECSALAIRECOUV").PageSetup.PrintArea = "A1:H100"

Pour la feuille DECSALAIRE

Code:

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:

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:

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

04/10/2008, 20h59
ucfoutu

Bonsoir,
ActveSheet correspond à la feuille active (et il n'y en a qu'une à chaque instant).
Si tu dois te référer à une feuille dont tu n'es pas certain qu'elle soit active, ne le fais pas avec ActiveSheet, mais avec son nom dans la collection Sheets.

Citation:

Envoyé par ucfoutu

Bonsoir,
ActveSheet correspond à la feuille active (et il n'y en a qu'une à chaque instant).
Si tu dois te référer à une feuille dont tu n'es pas certain qu'elle soit active, ne le fais pas avec ActiveSheet, mais avec son nom dans la collection Sheets.

Merci pour l'info

j'ai essayé ce code mais ça marche pas (je suis nul en vba :arf: )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Sheets("DECSALAIRECOUV").PageSetup.PrintArea = "A1:H100"
 
Sheets("DECSALAIRE").Select.Case Range("I5").Value
 
Case 1
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J35": Sheets("DECSALAIRE").PrintOut
Case 2
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J71": Sheets("DECSALAIRE").PrintOut
Case 3
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J107": Sheets("DECSALAIRE").PrintOut
Case 4
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J143": Sheets("DECSALAIRE").PrintOut
Case 5
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J179": Sheets("DECSALAIRE").PrintOut
Case 6
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J215": Sheets("DECSALAIRE").PrintOut
Case 7
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J251": Sheets("DECSALAIRE").PrintOut
Case 8
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J288": Sheets("DECSALAIRE").PrintOut
Case 9
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J324": Sheets("DECSALAIRE").PrintOut
Case 10
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J360": Sheets("DECSALAIRE").PrintOut
End Select
 
Sheets("occassionnelles").Select.Case Range("G2").Value
 
Case 1
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G26": Sheets("occassionnelles").PrintOut
Case 2
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G52": Sheets("occassionnelles").PrintOut
Case 3
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G78": Sheets("occassionnelles").PrintOut
Case 4
Sheets("occassionnelles").PageSetup.PrintArea = "A1:104": Sheets("occassionnelles").PrintOut
End Select
 
Sheets("stagiaires").Select.Case Range("J2").Value
Case 1
Sheets("stagiaires").PageSetup.PrintArea = "A1:K27": Sheets("stagiaires").PrintOut
Case 2
Sheets("stagiaires").PageSetup.PrintArea = "A1:K56": Sheets("stagiaires").PrintOut
Case 3
Sheets("stagiaires").PageSetup.PrintArea = "A1:K85": Sheets("stagiaires").PrintOut
Case 4
Sheets("stagiaires").PageSetup.PrintArea = "A1:K114": Sheets("stagiaires").PrintOut
End Select

04/10/2008, 23h16
JackOuYA
bonsoir,

Citation:

j'ai essayé ce code mais ça marche pas (je suis nul en vba )

et c'est quoi qui marche pas ? tu n'as pas un message d'erreur ?

c'est pas
Code:

1 2 Sheets("DECSALAIRE").Select.Case Range("I5").Value
mais plutôt :

Code:

Select Case Sheets("DECSALAIRE").Range("I5").Value

Merci infiniment M. JackOuYA

vous avez raison

voici le code qui marche bien chez moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Sheets("DECSALAIRECOUV").PageSetup.PrintArea = "A1:H100"
 
 
Select Case Sheets("DECSALAIRE").Range("I5").Value
Case 1
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J35"
Case 2
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J71"
Case 3
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J107"
Case 4
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J143"
Case 5
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J179"
Case 6
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J215"
Case 7
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J251"
Case 8
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J288"
Case 9
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J324"
Case 10
Sheets("DECSALAIRE").PageSetup.PrintArea = "A1:J360"
End Select
 
 
Select Case Sheets("occassionnelles").Range("G2").Value
Case 1
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G26"
Case 2
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G52"
Case 3
Sheets("occassionnelles").PageSetup.PrintArea = "A1:G78"
Case 4
Sheets("occassionnelles").PageSetup.PrintArea = "A1:104"
End Select
 
Select Case Sheets("stagiaires").Range("J2").Value
 
Case 1
Sheets("stagiaires").PageSetup.PrintArea = "A1:K27"
Case 2
Sheets("stagiaires").PageSetup.PrintArea = "A1:K56"
Case 3
Sheets("stagiaires").PageSetup.PrintArea = "A1:K85"
Case 4
Sheets("stagiaires").PageSetup.PrintArea = "A1:K114"
End Select
 
Sheets(Array("DECSALAIRECOUV", "DECSALAIRE", "occassionnelles" _
            , "stagiaires")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True