impression jusqu'à derniere ligne pleine

[phil69]

bonjour le forum


j'ai un classeur et la saissie de certaines infos alimentent un tableau dans la feuille2 ligne par ligne et je voudrais avec un bouton en feuille1 imprimer le tableau de son debut (ex a6:g6)jusqu'à la derniere ligne pleine

qu'elle code je peux mettre

merci

phil69

 

[job75]

Re : impression jusqu'à derniere ligne pleine

Bonjour Phil,
Merci de préciser ce qu'il faut comprendre par "ligne pleine".
A vous lire.

 

[Brigitte]

Re : impression jusqu'à derniere ligne pleine

Bonsoir,

Voici ce que m'a concocté Pierrot93 pour faire, je pense, la même chose, à savoir pour un tableau donné, imprimer de la première ligne à la dernière ligne dans laquelle une certaine cellule serait remplie (ici de plage A à S, si cellule A remplie) :

Sub ImpressionTableau()
'
' ImpressionTableau Macro
' Macro enregistrée le 30/10/2007 par xxxxxx
'
ActiveSheet.PageSetup.PrintArea = Range("A1:S" & _
    Range("A65536").End(xlUp).Row).Address
   End Sub

Je te laisse adapter à ton cas pour les références de cellules. Ca marche nickel pour moi, j'ai rajouté un bouton auquel j'ai affecté cette macro.

 

[phil69]

Re : impression jusqu'à derniere ligne pleine

re



merci pour la reponse,mais si en plus je pouvais lancer la macro d'une autre feuille et que la feuille à imprimé n'apparaisse pas ce serai parfait

Phil69

 

[Pierrot93]

Re : impression jusqu'à derniere ligne pleine

Bonjour Phil, Job, Brigitte😉

essaye le code ci-dessous, met en page et imprime l'onglet nommé "Feuil1", à partir de n'importe quel autre onglet.

Sub test()
With Sheets("Feuil1")
    .PageSetup.PrintArea = .Range("A6:G" & _
        .Range("A65536").End(xlUp).Row).Address
    .PrintOut
End With
End Sub

bonne soirée
@+

 

[phil69]

Re : impression jusqu'à derniere ligne pleine

re


merci à tous cà marche nikel

bravo

phil69