zone d'impression conditionelle

Dull

XLDnaute Barbatruc

• 26 Juin 2009

• #2

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

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

Code:

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

Ou tout simplement

Code:

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

 

Dernière édition: 26 Juin 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juin 2009

• #3

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

Code:

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+

 

Dernière édition: 26 Juin 2009

Vote positif 0 Vote négatif

P

prisme3

Guest

• 26 Juin 2009

• #4

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,

 

Pièces jointes

• Copie de Imprimer.xls.zip

  18.2 KB · Affichages: 69

Vote positif 0 Vote négatif

P

prisme3

Guest

• 26 Juin 2009

• #5

Re : zone d'impression conditionelle

job75 à dit:

Bonjour prisme3, Dull,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

prisme3

Guest

• 26 Juin 2009

• #6

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

 

Dernière modification par un modérateur: 26 Juin 2009

Vote positif 0 Vote négatif