problème zone d'impression dans macro

[gfmout]

Bonjour le forum et tous les surdoués d'excel!

J'ai fait une macro pour automatiser l'impression d'un tabelau qui va de colonne A à P et compte 878 lignes aujourd'hui
Tout ira bien jusqu'au jour où mon tableau ne fera plus 878 lignes?
Comment faire pour que la macro connaisse automatiquement la dernière ligne du tableau et la prenne en compte dans la zone d'impression?

ci dessous extrait de la macro

Sheets('Stock').Select

Cells.Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PageSetup.PrintArea = '$A$1:$P$878'


Merci d'avance à ceux qui se pencheront sur mon peptit problème

Gilles

 

[photoechange]

Bonjour gfmout

Pour mon travail j'utilise ceci en sachant à l'avance que dans mes tableaux je ne sais pas combien de ligne donc pour eviter d'imprimer des pages et des page vide excel imprime uniquement les lignes remplies, chez moi ça fonctionne à merveille Essaye et dis moi
au plaisir
@+steph


Private Sub CommandButton1_Click()
Cells.Select
Cells.Select
Selection.Replace What:='.', Replacement:=',', LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Range('A1').Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ligcellule = ActiveCell.Row
chaine_plage = 'A1:X' + Format(ligcellule + 12, '!@@@@')
ActiveCell.FormulaR1C1 = chaine_plage
'
'Début de la macro
'Colle la macro et en fin rajoute ceci


ActiveSheet.PageSetup.PrintArea = ''
Range(chaine_plage).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address()
End With
end sub

 

[Blunet]

Salut gfmout, photoechange,
Une autre façon de sélectionner un tableau jusqu'à la dernière ligne est:

Range('B5', Range('E5').End(xlDown).Rows).Select

Cette commande sélectionne la plage (tableau) B5 jusqu'à Exx où x est la dernière cellule de la plage.

Ciao

 

[gfmout]

Salut Blunet, Photoechange!

C'est super ça marche!!

MErci beaucoup

Gilles

 

[Bernard_XLD]

Bonjour gfmout, photoechange, blunet

un code tout simple mais pratique pour initialiser une zone d'impression sur un tableau

Cordialement, A+

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address