Bonjour,

plutot que delimiter une zone d'impression,
j'aimerai pouvoir dire a mon code,
on imprime a partir de cette cellule, jusqu'a la derniere cellule remplie de cette colonne,

comment l'ecrire..
voici le code que j'utilise actuellement,
qui est bloqué sur une zone definie..

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub IMPTIMTR()
'
 
    'ActiveSheet.PageSetup.PrintArea = "$D$96:$I$156"
 
 
    With ActiveSheet.PageSetup
 
        .Orientation = xlPortrait
        .Zoom = 95
        End With
    'ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub
j'ai trouvé ce code,
mais il essaie d'imprimer jusqu' a la derniere ligne soit 163 feuille !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub IMPTIMTR()
 
 
    ActiveSheet.PageSetup.PrintArea = Range("D96:I96" & _
    Range("I65536").End(xlUP).Row).Address
 
    With ActiveSheet.PageSetup
 
        .Orientation = xlPortrait
        .Zoom = 95
        End With
    ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
End Sub
pouvez vous m'aider ..??

Merci