zone d'impression conditionelle

[prisme3]

Bonjour,
je cherche a créer un bouton qui lancerai l'impression de une ou plusieurs sheets en fonction de si certaines cellules sont remplies ou non.

Par exemple, ma sheet 1 comporte plusieurs pages (zones d'impression). Grâce à des fonctions IF (; ; 😉 le total TTC s'affiche en bas de telle ou telle page, suivant que certaines cellules sont pleines ou pas.

J'aimerais pouvoir, à l'aide d'un bouton, imprimer les pages jusqu'à celle qui a le Total TTC.

Merci

 

[Dull]

Re : zone d'impression conditionelle

Salut Prisme3 et Bienvenue🙂, le Forum

Je te conseil de Nommer ta cellule TTC

Insertion\Nom\Définir
Nom dans le Classeur :
TTC par exemple
Fait référence à :
Feuil1!$G$59 Toujours par Exemple
Ok

Ensuite
dans un module quelquonque

colle ce code

Sub EsSai()
ActiveSheet.PageSetup.PrintArea = "$A$1:" & "TTC"
End Sub

Et ta Zone d'impression sera A1:A59

Dans le ThisWorkbook colle ce Code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call EsSai
End Sub

Ou tout simplement

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:" & "TTC"
End Sub

Et voilà et...Juste à titre d'exemple 😛

EDITION: Salut Job75 🙂 et voilà un autre exemple etQuelExemple...Mazette 🙂

Bonne Journée

 

[job75]

Re : zone d'impression conditionelle

Bonjour prisme3, Dull,

Ou cette macro qui passe en revue toutes les feuilles et cherche la cellule contenant le texte "TOTAL TTC" :

Sub Imprimer()
Dim w As Worksheet, total As Range
For Each w In Worksheets
Set total = w.Cells.Find("TOTAL TTC", LookIn:=xlValues)
If Not total Is Nothing Then
w.PageSetup.PrintArea = "$1:$" & total.Row
w.PrintOut
End If
Next
End Sub

A+

 

[prisme3]

Re : zone d'impression conditionelle

Merci messieurs.
C'est du charabiah pour moi, mais je vais essayer.

J'ai trouvé une petite macro toute faite pour selectionner les feuilles a imprimer.
Du coup, il me manque juste une solution pour que les zones d'impression se definissent toutes seules en fonction de cellules remplies ou non.

Merci,

 

[prisme3]

Re : zone d'impression conditionelle

Bonjour prisme3, Dull,

Ou cette macro qui passe en revue toutes les feuilles et cherche la cellule contenant le texte "TOTAL TTC" :

Interessant! Y aurait-il un code pour imprimer toutes les feuilles du classeur dont la cellule $C$4 est non-nulle?

 

[prisme3]

Re : zone d'impression conditionelle

J'ai réussi à composer ceci en croisant les infos que j'ai pu lire dans le forum.

If Range("H155") = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$H$88" Else If Range("H242") = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$H$175" Else If Range("H329") = 0 Then ActiveSheet.PageSetup.PrintArea = "$A$1:$H$262" Else ActiveSheet.PageSetup.PrintArea = "$A$1:$H$349"

pouvez vous me corriger? Ça bloque à: Else If Range("H242") = 0