Ne pas imprimer si valeur cellule=0

[spollet]

Bonjour, je suis nouveau sur le site. Je cherche une solution pour pouvoir imprimer que les pages d'une feuille dont la cellule est non vide (sachant que cette cellule contient une liaison vers un autre tableau),j'ai 6 pages par feuille.J'ai actuellement un bout de code en VBA (Voir ci-dessous) qui me lance bien l'impression seulement si la cellule de la première page est non vide et que les 5 autres cellules des 5 autres pages sont vides sa m'imprime la totalité des pages.
Sub Bouton8_QuandClic()
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Activate
If Range("D42,D97,D152,D207,D262,D317") <> "0" Then ActiveWorkbook.Sheets(i).PrintOut Copies:=1, Collate:=True
Next i
End Sub

Merci de votre retour

 

[Gorfael]

Re : Ne pas imprimer si valeur cellule=0

Salut spollet et le forum
Utilises les balises de code (# en mode avancé)

Sub Bouton8_QuandClic()
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Range("D42,D97,D152,D207,D262,D317") <> "0" Then Sheets(i).PrintOut Copies:=1, Collate:=True
Next i
End Sub

A+
Edit
Déjà, bienvenue

Range("D42,D97,D152,D207,D262,D317") <> "0"

Pas sûr de ce que peut signifier cette instruction

 

[Pierrot93]

Re : Ne pas imprimer si valeur cellule=0

Bonjour Spollet, Gorfael

selon ma compréhension :

Dim i As Integer, j As Byte, t() As Variant
t = Array("D42", "D97", "D152", "D207", "D262", "D317")
For i = 1 To Worksheets.Count
    For j = 0 To 5
        If Worksheets(i).Range(t(j)) <> "0" Then Worksheets(i).PrintOut From:=j + 1, To:=j + 1, Copies:=1, Collate:=True
    Next j
Next i

bon après midi
@+

 

[spollet]

Re : Ne pas imprimer si valeur cellule=0

Bonjour,
Déjà merci aux personnes qui ont consacrées un peu de temps à mon problème. J'ai testé la solution de Gorfael mais sa continue toujours à m'imprimer automatiquement les 6 pages de ma feuille. Et pour la réponse de Pierrot93 j'ai une erreur de compilation au niveau des différentes cellules t = Array("D42", "D97", "D152", "D207", "D262", "D317").
@+

 

[Pierrot93]

Re : Ne pas imprimer si valeur cellule=0

Bonjour,

pas de problème chez moi :

t = Array("D42", "D97", "D152", "D207", "D262", "D317")

cette ligne ne provoque pas d'erreur...
supposant que tu ais bien gardé la déclaration des variables...

Dim i As Integer, j As Byte, t() As Variant

bonne journée
@+

 

[spollet]

Re : Ne pas imprimer si valeur cellule=0

J'ai l'erreur suivante : Erreur de compilation "Instruction incorrecte à l'extérieur d'une procédure".

 

[Pierrot93]

Re : Ne pas imprimer si valeur cellule=0

Re,

le code est à placer dans une procédure, avec déclaration de procédure et fin de procédure, comme ci-dessous :

Sub mamacro()
Dim i As Integer, j As Byte, t() As Variant
t = Array("D42", "D97", "D152", "D207", "D262", "D317")
For i = 1 To Worksheets.Count
    For j = 0 To 5
        If Worksheets(i).Range(t(j)) <> "0" Then Worksheets(i).PrintOut From:=j + 1, To:=j + 1, Copies:=1, Collate:=True
    Next j
Next i
End Sub

 

[spollet]

Re : Ne pas imprimer si valeur cellule=0

C'est trop cool sa fonctionne, un grand merci à toi Pierrot ainsi cas toute l'équipe du site.