Imprimer une sélection

[piep14]

Re bonjour, je souhaite imprimer une selection. J'ai donc fais une macro :

Sub Imprimer()

Sheets('Feuil1').Range('A1:C').PrintOut
End Sub

Mais je ne connais pas la derniere ligne a imprimer.Je sais que ca commence en A1 et que ca se termine a la colonne C mais de quel ligne. J'ai également vu que pour trouver la valeur de la derniere ligne on pouvais utiliser :

Range('C65536').End(xlUp).Select

Mais j'arrive pas à intégrer les deux ensembles !!! Merci

 

[piep14]

J'ai donc essayé de faire :

Sub Imprimer()
Sheets('Feuil1').Range('A1:C'Range('C65536').End(xlUp).Select'').PrintOut
End Sub

Mais cela ne fonction pas car je pense qu'il faut associer Range('C65536').End(xlUp).Select à une variable mais je ne sais pas le faire !!! Merci de m'aider

 

[piep14]

Je viens encore de tester

Sub Imprimer()
Valeur = Range('C65536').End(xlUp).Select
Sheets('Feuil1').Range('A1:C&Valeur').PrintOut
End Sub

Mais rien ni fais !!

 

[ChTi160]

Salut'piep14'
tu n'étais pas loin
regardes

Sub Imprimer()
dim DerLgn as integer
DerLgn = Range('C65536').End(xlUp).Select

Sheets('Feuil1').Range('A1:C'& DerLgn).PrintOut

End Sub

Message édité par: ChTi160, à: 22/03/2005 18:45

 

[piep14]

J'ai mis ce que tu as dis et on m'affiche
Erreur d'éxecution 1004
Erreur définie par l'application ou par l'objet ????

 

[ChTi160]

oups j'avais pas vu excuses


Sub Imprimer()
Dim DerLgn As Integer
DerLgn = Range('C65536').End(xlUp).Row'donne le numero de la dernière ligne

Sheets('Feuil1').Range('A1:C' & DerLgn).PrintOut

End Sub

 

[piep14]

Super bien !!! C'est juste ce que je souhaiter. Il me reste un dernier probleme sur mon autre post 'graphique'. Si tu peux m'aider car tu as l'air de t'y connaitre