Dernière cellule de ma zone d'impression!

Bonjour,

Range(Split([Zone_d_impression].Address, ":")(1)).Select

JB

Bonjour,
Comment atteindre la dernière cellule de ma zone d'impression?
J'ai essayé ceci:
Range(ActiveSheet.PageSetup.PrintArea).SpecialCells(xlCellTypeLastCell). Offset(0,0).Selectmais évidemment, cela ne fonctionne pas!Merci d'avance, claudy

A ) Si tu as défini une zone d'impression par la commande Fichier / zone d'impression / définir

Ceci devrait te donner le numéro de la dernière ligne et de la dernière colonne de la dite zone.
'-----------------------------
Sub test1()

Dim X As Range
Set X = Range(ActiveSheet.PageSetup.PrintArea)
DerCol = X(1).Column + X.Columns.Count - 1
DerLig = X(1).Row + X.Rows.Count - 1

End Sub
'-----------------------------

B ) Si tu veux connaître la dernière ligne ou colonne de ta feuille d'impression
'-----------------------------
Sub test2()
With ActiveSheet
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End With
End Sub
'-----------------------------




"claudy" <weets.claudy@Skynet.be.yenamarredesSpam> a écrit dans le message de news:
454cb5bd$0$1130$ba620e4c@news.skynet.be...
Bonjour,
Comment atteindre la dernière cellule de ma zone d'impression?
J'ai essayé ceci:
Range(ActiveSheet.PageSetup.PrintArea).SpecialCells(xlCellTypeLastCell).Offset(0,0).Selectmais
évidemment, cela ne fonctionne pas!Merci d'avance, claudy

Ok, merci beaucoup,
Claudy
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1162657226.607445.74090@b28g2000cwb.googlegroups.com...
Bonjour,

Range(Split([Zone_d_impression].Address, ":")(1)).Select

JB

Bonjour,
Comment atteindre la dernière cellule de ma zone d'impression?
J'ai essayé ceci:

Range(ActiveSheet.PageSetup.PrintArea).SpecialCells(xlCellTypeLastCell).Offset(0,0).Selectmais
évidemment, cela ne fonctionne pas!Merci d'avance, claudy