Discussion :

[ToFind]

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.

[fring]

Bonjour,

En supposant que les colonnes à imprimer sont les colonnes de A à G (sinon tu adaptes le code), tu peux essayer comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BtnImpBat_Cliquer()
Dim i As Long
 
With Sheets("EP BATIMENT(Print)")
    For i = .Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
        If .Cells(i, 7) > 0 Then
            .PageSetup.PrintArea = "A1:G" & i
            .PrintOut
            Exit For
        End If
    Next
End With
 
End Sub

[ToFind]

Un tout grand merci fring. Ca fonctionne tout à fait correctement.

Est-il cependant possible de modifier la plage de contrôle des cellules supérieures à 0.

Je m'explique : pûtôt que de controler quelles sont les cellules de la colonne G complète qui sont supérieures à 0, pourrait on contrôler exclusivement les cellulles allant de G9 jusqu'à à la fin de la feuille (ceci afin de ne pas contrôler les lignes de titre qui ne sont effectivement pas vides, et de produire une impression inutile)?

Merci. Bonne journée.

[fring]

La procédure boucle sur la colonne G entre la dernière ligne utilisée de cette colonne .Cells(Rows.Count, 7).End(xlUp).Row et la ligne 1, il suffit d'adapter ces deux bornes, dans ton cas ça donnerait :

Code :

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

For i = .Cells(Rows.Count, 7).End(xlUp).Row To 9 Step -1

Step -1 sert à signifier que la boucle doit s'exécuter de bas en haut en remontant d'une cellule à chaque passage

[ToFind]

Encore un tout grand merci.
Ca fonctionne à merveille!

J'aurai une autre question afin de savoir s'il est possible de générer des PDF à partir de ces mêmes bases et sans passer par un générateur externe, Mais pour cela, je crée un autre post.

A bientôt.