[VBA] Afficher au centre de l'écran, la dernière ligne utilisée d'une feuille (à l'ouverture d'un classeur).
Q&R publiée par MyDearFriend! le 03-05-2008 (6345 Lectures)
Soit une feuille 1 contenant des données. A chaque ouverture du classeur, on souhaite afficher la dernière ligne de données au centre de l'écran :
DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOKPrivate Sub Workbook_Open()
With Worksheets("Feuil1")
.Activate
ActiveWindow.ScrollRow = .Cells.SpecialCells(xlCellTypeLastCell). _
Row - (ActiveWindow.VisibleRange.Rows.Count \ 2)
End With
End Sub
|