Discussion :

[kazannova]

Bonjour

Si vous pouvez m'aider à résoudre ce prob.

Je veux imprimer la zone "A1:AM164" dans une feuille nommée TVAT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TVAT").PageSetup.PrintArea = "A1:AM164"

de plus:

si la case P8 de la feuille TVAT est égale à 1:
je veux imprimer une zone d'une feuille nommée DEDT1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row

si la case P8 de la feuille TVAT est égale à 2:
je veux imprimer une zone d'une feuille nommée DEDT2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row

si la case P8 de la feuille TVAT est égale à 3:
je veux imprimer une zone d'une feuille nommée DEDT3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row

si la case P8 de la feuille TVAT est égale à 4:
je veux imprimer une zone d'une feuille nommée DEDT4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row

J'ai essayé ce code mais qq chose ne marche pas:

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
Sub LATVATPDF()
 
Sheets("TVAT").PageSetup.PrintArea = "A1:AM164"
 
Select Case Sheets("TVAT").Range("P8").Value
Case 1
Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 2
Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 3
Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 4
Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
 
Sheets(Array("TVAT", "DEDT1", "DEDT2" _
            , "DEDT3", "DEDT4")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
End Sub

le début de code est coloré par le jaune:

Sub LATVATPDF()


Merci d'avance

[alsimbad]

en dehors de la validité du code que je n'ai pas le temps de tester, il te manque le end select

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
 
Select Case Sheets("TVAT").Range("P8").Value
Case 1
Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 2
Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 3
Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
Case 4
Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Range("AM189").End(xlUp).Row
 
END SELECT 
 
Sheets(Array("TVAT", "DEDT1", "DEDT2" _
            , "DEDT3", "DEDT4")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
End Sub

[JackOuYA]

bonjour,


Fait attention, comme on te la déjà dis sur ton autre post, lorsque tu utilise des propriétés de feuilles sans préciser la feuille par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("AM189")

tu travaille avec la feuille active.
tu peu utiliser With pour éviter de répeter un préfixe...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
...
Width Sheets("DEDT1")
Select Case Sheets("TVAT").Range("P8").Value
Case 1
.PageSetup.PrintArea = "$A$1:$AO$" & .Range("AM189").End(xlUp).Row
Case 2
....
End select
End Width

[kazannova]

Encore merci infiniment M. JackOuYA, comme je remercie aussi M. alsimbad

Suite à vos remarques et propositions j'ai fini par ce code qui marche à 75%

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
24
25
Sub Image7_Clic()
 
Sheets("TVAT").PageSetup.PrintArea = "A1:AM164"
 
 
With Sheets("TVAT")
 
Select Case Sheets("TVAT").Range("P8").Value
Case 1
Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189").End(xlUp).Row
Case 2
Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT2").Range("AM189").End(xlUp).Row
Case 3
Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT3").Range("AM189").End(xlUp).Row
Case 4
Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT4").Range("AM189").End(xlUp).Row
 
End Select
End With
 
Sheets(Array("TVAT", "DEDT1", "DEDT2" _
            , "DEDT3", "DEDT4")).PrintOut Copies:=1, ActivePrinter:="PDFCreator on Ne01:", Collate:=True
 
 
End Sub

Le seul problème est que le code m'imprime la première ligne des 3 autres feuilles même si la case AM189 de ces feuilles est vide de plus si la case P8 de la feuille TVAT = 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case Sheets("TVAT").Range("P8").Value

il faut m'imprimer la feuille TVAT et la zone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Case 1
Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189").End(xlUp).Row

de la feuille DEDT1

si la case P8 de la feuille TVAT = 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Case Sheets("TVAT").Range("P8").Value

il faut m'imprimer la feuille TVAT et la zone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Case 2
Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189").End(xlUp).Row

de la feuille DEDT2

.......

[kazannova]

Après plusieurs tests (en utilisant des probabilités et plusieurs possibilités en tant que nul biensûr en VBA ) je viens de trouver une solution avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Image7_Clic()
 
Sheets("TVAT").PageSetup.PrintArea = "A1:AM164"
If Sheets("TVAT").Range("P8").Value = 1 Then Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT1")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 2 Then Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT2").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT2")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 3 Then Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT3").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT3")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 4 Then Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT4").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT4")).PrintOut Collate:=True
 
End Sub