Discussion :

[kazannova]

Bonsoir


Je veux ajouter à ce code une modification dans la mesur à:

Ne pas imprimer la feuille DEDT1 si la case AG7 de DEDT1 est vide
Ne pas imprimer la feuille DEDT2 si la case AG7 de DEDT2 est vide
Ne pas imprimer la feuille DEDT3 si la case AG7 de DEDT3 est vide
Ne pas imprimer la feuille DEDT4 si la case AG7 de DEDT4 est vide

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

Merci d'avance

[myDearFriend!]

Bonsoir kazannova,

Peut-être une façon de faire :

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
Sub Image7_Clic()
Dim Sh As Worksheet
    With Sheets("TVAT")
        .PageSetup.PrintArea = "A1:AM164"
        With .Range("P8")
            If .Value >= 1 And .Value <= 4 Then
                Set Sh = Sheets("DEDT" & .Value)
                Sh.PageSetup.PrintArea = "$A$1:$AO$" & Sh.Range("AM189").End(xlUp).Row
                If Not IsEmpty(Sh.Range("AG7")) Then
                    Sheets(Array("TVAT", Sh.Name)).PrintOut Collate:=True
                Else
                    Sheets("TVAT").PrintOut
                End If
            End If
        End With
    End With
End Sub

Cordialement,
Didier_mDF

[kazannova]

Bonsoir M. Dedier

Le code m'imprime la première ligne de la feuille DEDT* même si la case AG7 est vide, comme c'était le cas avec le premier code.

Merci

[fring]

Bonjour à tous,

Kazannova, ça serait bien que tu relises tes ennoncés

Ne pas imprimer la feuille DEDT1 si la case AG7 de DEDT1 est vide

Le code m'imprime la première ligne de la feuille DEDT* même si la case AG7 est vide

Quel est le bon ?
.

[kazannova]

Bonjour à tous,

Kazannova, ça serait bien que tu relises tes ennoncés


Quel est le bon ?
.

bonjour Fring

j'ai volu dire que:


dans mon code j'imprime toujours la feuille "TVAT" plus une zone d'une autre feuille soit DEDT1 soit DEDT2 soit DEDT3 soit DEDT4 : ça dépond de chiffre existant dans la case "P8" de la feuille "TVAT"

Mais moi je ne veux pas imprimer les feuilles annexes (DEDT1 DEDT2 DEDT3 DEDT4) si leurs cases AG7 sont vides, juste imprimer la feuille "TVAT"

[Invité]

Bonjour,

Je suppose que ça pourrait être quelque chose du genre :

Code :

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

1
2
3
If Sheets("TVAT").Range("P8").Value = 1 And Sheets("DEDT1").Range("AG7").value <> "" _
Then Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189") _
.End(xlUp).Row: Sheets(Array("TVAT", "DEDT1")).PrintOut Collate:=True

[ouskel'n'or]

Vous y comprenez quelque chose ? Pour ma part, j'ai du mal
Bon, si je reformule, tu as
- Une cellule B8 de la feuille TVAT contenant un N° 1, 2, 3 ou 4
- Si et seulement si dans la feuille DEDT correspondante à ce N°, la cellule AG7 est renseignée
tu veux
- Imprimer la feuille TVAT

Est-ce bien ça ?

[fring]

Bonjour tlm ,

Non Ousk ce n'est pas exactement ça, la feuille TVAT est toujours imprimée et à TVAT est associée la feuille DEDTx (dont le numéro est renseigné dans la cellule P8 de la feuille TVAT) seulement si la cellule AG7 de cette feuille DEPT contient une valeur.

C'est exactement ce que fait le code proposé par Didier (mDF)

[ouskel'n'or]

Hello fring,
Tu es certain ? Sicécla feuille TVAT elle doit toujours être imprimée alors que vient faire cette quadrupe condition ?

Ne pas imprimer la feuille DEDT1 si la case AG7 de DEDT1 est vide
Ne pas imprimer la feuille DEDT2 si la case AG7 de DEDT2 est vide
Ne pas imprimer la feuille DEDT3 si la case AG7 de DEDT3 est vide
Ne pas imprimer la feuille DEDT4 si la case AG7 de DEDT4 est vide

[fring]

Hello fring,
Tu es certain ? Sicécla feuille TVAT elle doit toujours être imprimée alors que vient faire cette quadrupe condition ?

et à TVAT est associée la feuille DEDTx si ...

Je changerais juste un truc dans le code de myDearFriend

Code :

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

If Not IsEmpty(Sh.Range("AG7")) Then

J'écrirais plutôt

Code :

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

If Sh.Range("AG7") <> "" Then

Parce que même si il n'y a pas de valeur dans la cellule AG7 mais qu'elle contient une formule elle ne sera pas considérée comme vide

[myDearFriend!]

Bonsoir,

et à TVAT est associée la feuille DEDTx si ...

Je changerais juste un truc dans le code de myDearFriend

Code :

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

If Not IsEmpty(Sh.Range("AG7")) Then

J'écrirais plutôt

Code :

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

If Sh.Range("AG7") <> "" Then

Parce que même si il n'y a pas de valeur dans la cellule AG7 mais qu'elle contient une formule elle ne sera pas considérée comme vide

Bien vu !
Tout à fait d'accord fring, on peut imaginer que c'est ce qui est arrivé à kazannova lorsqu'il a testé le code.

Cordialement,

[kazannova]

Bravo vous êtes vraiment des héros.
le code marche 100%
Je vous remercie tous: Didier_mDF, jacques_jean, ouskel'n'or et Fring

le code est le suivant:

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
Dim Sh As Worksheet
    With Sheets("TVAT")
        .PageSetup.PrintArea = "A1:AM164"
        With .Range("P8")
            If .Value >= 1 And .Value <= 4 Then
                Set Sh = Sheets("DEDT" & .Value)
                Sh.PageSetup.PrintArea = "$A$1:$AO$" & Sh.Range("AM189").End(xlUp).Row
                If Sh.Range("AG7") <> "" Then
                    Sheets(Array("TVAT", Sh.Name)).PrintOut Collate:=True
                Else
                    Sheets("TVAT").PrintOut
                End If
            End If
        End With
    End With