Bonjour,
Je souhaite imprimer, sur appui d'un bouton, la feuille EP BATIMENT (print) qui contient beaucoup de formules, et ce tant que les formules comprises dans la colonne G (de G1 à G1000) retourne une valeur supérieure à 0. Donc, si cellule G80 (qui se trouve sur la page 2) contient une valeur supérieure à 0, les pages 1 et 2 seront imprimées, mais pas les pages suivantes.

Le code suivant ne fonctionne pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub BtnImpBat_Cliquer()
 
Dim VCase As Long
 
VCase = Worksheets("EP BATIMENT(Print)").Range("G1000").End(xlUp).Row
Worksheets("EP BATIMENT(Print)").Range("A1:VCase").PrintOut
 
End Sub
Merci de me faire part de votre avis.