Imprimer une sélection

piep14 · 22 Mars 2005

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

Code:

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 :

Code:

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

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

piep14 · 22 Mars 2005

J'ai donc essayé de faire :

Code:

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 · 22 Mars 2005

Je viens encore de tester

Code:

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

Mais rien ni fais !!

ChTi160 · 22 Mars 2005

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 · 22 Mars 2005

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 · 22 Mars 2005

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 · 22 Mars 2005

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

Imprimer une sélection

piep14

Guest

piep14

Guest

piep14

Guest

ChTi160

XLDnaute Barbatruc

piep14

Guest

ChTi160

XLDnaute Barbatruc

piep14

Guest

Discussions similaires