Bonsoir Rapidos depuis le LapTop au lit LOL
Sub DerDeDerPourCeSoir()
Dim MyLastCell As Range
With Sheets('Feuil1')
Set MyLastCell = .Range('a65536').End(xlUp)
End With
MsgBox 'La derniere cellule est ' & MyLastCell.Address & ' elle contient ' & MyLastCell.Value
End Sub
[ol]@+Thierry[/ol]
EDITION !!!
Bonne Nuit Didier le seul Fumeur du Meeting
Message édité par: _Thierry, à: 16/09/2005 02:04
EDITION II !!!
Avec Moi lol
Message édité par: _Thierry, à: 16/09/2005 02:06
EDITION III le retour !!!
Arf et en comprenant enfin la question !!! lol
Sub DerDeDerPourCeSoir()
Dim MyLastCell As Range
With Sheets('Feuil1')
Set MyLastCell = .Range('a65536').End(xlUp)
End With
MsgBox 'La derniere cellule est ' & MyLastCell.Address & ' elle contient ' & MyLastCell.Value
MyLastCell.Activate
End Sub
Message édité par: _Thierry, à: 16/09/2005 02:08