Discussion :

[John Parker]

Bonjour à tous,

Mes connaissances en VBA étant toujours proche du néant j'ai besoin de votre aide.

J'ai un fichier excel dans lequel j'ai défini 1 zone d'impression multiple

Code :

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

Print_area=Sheet1!$A$11:$R$46;Sheet1!$A$48:$R$83;Sheet1!$A$85:$R$120

J’ai créé un bouton afin de lancer l’impression :

Code :

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

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Ce que je souhaiterai c’est :
-imprimer uniquement la première feuille si C13 n'est pas vide
-imprimer la première et la deuxième feuille si C50 n'est pas vide
-imprimer la première, la deuxième et la troisième feuille si C87 n'est pas vide

Merci d'avance!

[mercatog]

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
Sub Printe()
Dim Print_Area As String
 
With Sheet1
    If .Range("C13") <> "" Then
        Print_Area = "Sheet1!$A$11:$R$46"
        If .Range("C50") <> "" Then
            Print_Area = Print_Area & ",Sheet1!$A$48:$R$83"
            If .Range("C87") <> "" Then Print_Area = Print_Area & ",Sheet1!$A$85:$R$120"
        End If
        .PageSetup.PrintArea = Print_Area
        .PrintPreview
    End If
End With
End Sub

[John Parker]

Super c'est exactement ce que je voulais.

J'ai rajouté 2 nouvelles pages (ce qui m'en fait 5 en tout).

J'ai donc adapté ton code mais j'ai un message d'erreur "erreur end with without with"

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
Dim Print_Area As String
 
With Sheet1
    If .Range("C13") <> "" Then
        Print_Area = "Sheet1!$A$11:$R$46"
        If .Range("C50") <> "" Then
            Print_Area = Print_Area & ",Sheet1!$A$48:$R$83"
            If .Range("C87") <> "" Then
                Print_Area = Print_Area & ",Sheet1!$A$85:$R$120"
                    If .Range("C124") <> "" Then
                        Print_Area = Print_Area & ",Sheet1!$A$122:$R$157"
                            If .Range("C161") <> "" Then
                                Print_Area = Print_Area & ",Sheet1!$A$159:$R$194"
        End If
        .PageSetup.PrintArea = Print_Area
        .PrintOut
 
    End If
 
End With
 
End Sub

As-tu une idée ?

Encore merci

[unparia]

Bonjour,
J'y vois surtout de nombreuses expressions conditionnelles 'If ... Then" non terminées par un "End If" ...
Ton indentation (gien faite, elle) fait sauter pourtant cela aux yeux.

[John Parker]

Comme je l'ai dis , je suis plus que nul en VBA ...
Du coup je ne vois vraiment pas...

[AlainTech]

Bonjour,

Il y a 2 manières d'écrire une instruction If:

Code :

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

1
2
3
If .Range("C50") <> "" Then
  Print_Area = Print_Area & ",Sheet1!$A$48:$R$83"
End If

ou

Code :

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

If .Range("C50") <> "" Then Print_Area = Print_Area & ",Sheet1!$A$48:$R$83"

La tienne est entre les 2.

[John Parker]

Mon problème est résolu.

Merci à tous pour votre précieuse aide!