Imprimer des cellules jusqu' a la derniere ligne remplie

**djoumusic** · 13/12/2009, 21h14

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

**mercatog** · 13/12/2009, 21h38

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub IMPTIMTR()
Dim LastLig As Double
 
LastLig = Cells(Rows.Count, 9).End(xlUp).Row
With ActiveSheet.PageSetup
    .PrintArea = ""
    .PrintArea = Range("D96:I" & LastLig).Address
    .Orientation = xlPortrait
    .Zoom = 95
End With
ActiveSheet.PrintOut Copies:=2, Collate:=True
End Sub

**djoumusic** · 13/12/2009, 22h03

Mercatog,
decidement, tu es mon sauveur !!

je n'ai pas encore essayer ton code,

Laslig veut dire derniere ligne..
pourquoi au debut tu ecrit as double,

et pourquoi le chiffre 9 dans la formule,

j'essaie de comprendre.... meme si je recopie parfois.. simplement...

merci !

**mercatog** · 13/12/2009, 22h05

LastLig oui c'est la dernière ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LastLig=Cells(Rows.Count, 9).End(xlUp).Row

je cherche la dernière donnée dans la colonne I (c'est à dire la 9ème colonne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LastLig As Long

parce que si tu as beaucoup de données, integer ne sera pas suffisant! (dépassement de capacité)

**djoumusic** · 13/12/2009, 22h50

merci
c'est clair

je ne connais pas "integr".. et donc double non plus,
mais je te fais confiance !

je ne sais pas ce que veulent dire ces valeures...