Dernière ligne

[pat12]

Bonjour,
J'ai une Feuille Excel avec beaucoup de ligne et je voudrais trouver un script qui me placerait sur la dernière ligne écrite à l'ouverture.
Merci

 

[SergiO]

Re : Dernière ligne

Bonsoir Pat12,

Mets ce code dans ThisWorkbook en supposant que ta feuille est la 1ère du classeur:

Private Sub Workbook_Open()
Sheets(1).Activate
Cells(Range("A65536").End(xlUp).Row, 1).Select
End Sub

@+