imprimer partie dremplie d'un tableau

[enrone]

bonjour à tous,

voila mon soucis : j'ai un tableau sous excel composé de plusieurs lignes et de plusieurs colonnes, et j'aimerais qu'excel, losque je cliques sur un bouton "imprimer" présent sur la feuille, n'imprime que les lignes complétées.
Puisque mon tableau comporte 150 lignes et que parfois seules les 10 premieres sont non vides, c'est embétant d'imprimer tout le tableau.

Merci pour votre aide et bonne journée a tous.

 

[Claudy]

Re : imprimer partie dremplie d'un tableau

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

 

[fun_guilhem]

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.

 

[enrone]

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.

 

[Claudy]

Re : imprimer partie dremplie d'un tableau

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

 

[Claudy]

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

 

[enrone]

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)

 

[Claudy]

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+

 

[enrone]

Re : imprimer partie dremplie d'un tableau

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

 

[bpol]

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+

bonjour le fil,

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

A+
Bpol

 

[Claudy]

Re : imprimer partie dremplie d'un tableau

Bien vu...
Bonne journée.