problème zone d'impression dans macro

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

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

Cliquez pour agrandir...

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

Ciao

Salut Blunet, Photoechange!

C'est super ça marche!!

MErci beaucoup

Gilles

Bonjour gfmout, photoechange, blunet

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

Cordialement, A+