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
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