imprimer partie dremplie d'un tableau

Claudy

XLDnaute Accro

• 13 Août 2009

• #2

Re : imprimer partie dremplie d'un tableau

Bonjour,
il suffit de définir ta zone d'impression ...
Aide = F1...
A+
Claudy

 

Vote positif 0 Vote négatif

F

fun_guilhem

Guest

• 13 Août 2009

• #3

Re : imprimer partie dremplie d'un tableau

Salut,

c'est tout simple. Tu selectionne les cellules que tu souhaites imprimer, tu cliques sur imprimer, et dans la fenêtre qui s'ouvre, tu cliques sur "selection".
Tu n'imprimeras alors que la zone selectionnée.

J'espère avoir pu répondre à ta question.

 

Vote positif 0 Vote négatif

E

enrone

Guest

• 13 Août 2009

• #4

Re : imprimer partie dremplie d'un tableau

Merci beaucoup mais j'aimerais que cela soit automatique, qu'excel reconaisse les lignes complétées et qu'il n'imprime que celles ci.

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 13 Août 2009

• #5

Re : imprimer partie dremplie d'un tableau

Pour cela il faut du vba...
Je cherche..
a+
claudy

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 13 Août 2009

• #6

Re : imprimer partie dremplie d'un tableau

RE,
en supposant que ton tableau commence en A1 jusque D et ???(DErnière ligne) à toi d'adapter le code ci dessous:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Range("D64000").End(xlUp).Row
End Sub

Code à placer dans le code de la feuille
Bonne chance,
Claudy

 

Vote positif 0 Vote négatif

E

enrone

Guest

• 13 Août 2009

• #7

Re : imprimer partie dremplie d'un tableau

le tableau complet (avec les lignes vides va de b11 à k150
J'ai donc dans le code de la feuille écris:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$b$11:$k$150" & Range("D64000").End(xlUp).Row
End Sub

et si je comprend une fois cela fais je devrais en faisant fichier/imprimer n'obtenir que les lignes non vides de mon tableau à l'impression.
seulement ca imprime toujours les 140 lignes...je dois mal m'y prendre..(en tout cas merci beaucoup pour ton aide)

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 13 Août 2009

• #8

Re : imprimer partie dremplie d'un tableau

Corection:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$b$11:$k$" & Range("D64000").End(xlUp).Row
End Sub

A+

 

Vote positif 0 Vote négatif

E

enrone

Guest

• 13 Août 2009

• #9

Re : imprimer partie dremplie d'un tableau

Ca marche!! merci beaucoup, vraiment merci. bonne fin d'aprés midi🙂

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 13 Août 2009

• #10

Re : imprimer partie dremplie d'un tableau

Claudy à dit:

Corection:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.PrintArea = "$b$11:$k$" & Range("D64000").End(xlUp).Row
End Sub

A+

Cliquez pour agrandir...

bonjour le fil,

Claudy ne faut ilpas modifier Range("D64000") en Range ("K64000")?

A+
Bpol

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 14 Août 2009

• #11

Re : imprimer partie dremplie d'un tableau

Bien vu...
Bonne journée.

 

Vote positif 0 Vote négatif