Définir zone impression mouvante

[Brigitte]

Bonjour à tous,

Pourriez vous me dire quoi mettre dans ma petite macro de définition de zone d'impression pour m'éviter de modifier, chaque fois, le numéro de la dernière ligne ?

En effet, pour l'instant j'ai x lignes, mais ce chiffre peut grandir. Et je voudrais donc quand la zone se définit (j'ai un bouton, car ce n'est pas la seule chose que j'imprime dans ma feuille), j'aimerais qu'elle aille à la fin du tableau (dernière ligne saisie par exemple).

Sub ImpressionArchives()
'
' ImpressionArchives Macro
' Macro enregistrée le 30/10/2007 par XXXX
'
'
    Range("A1:S2254").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$S$2254"
End Sub

Merci à vous.

 

[Pierrot93]

Re : Définir zone impression mouvante

Bonjour Brigitte

essaye peut être comme ceci :

ActiveSheet.PageSetup.PrintArea = Range("A1:S" & _
    Range("S65536").End(xlUp).Row).Address

bonne journée
@+

 

[Brigitte]

Re : Définir zone impression mouvante

Bonjour,

Merci Pierrot, c nickel... J'ai juste changé le S en A car je n'ai pas tjs qqchse en colonne S.

ActiveSheet.PageSetup.PrintArea = Range("A1:S" & _
Range("A65536").End(xlUp).Row).Address

Extra !! je sais bien que ca se passe tjs avec end(xlup).row... mais alors je sais pas écrire ca, moi.