FAQ - VBA - Feuilles - [VBA] Afficher au centre de l'écran, la dernière ligne utilisée d'une feuille (à l'ouverture d'un classeur). : myDearFriend! Excel Pages

[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 (6230 Lectures)

Untitled document

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 THISWORKBOOK
Private Sub Workbook_Open() 
    With Worksheets("Feuil1") 
        .Activate 
        ActiveWindow.ScrollRow = .Cells.SpecialCells(xlCellTypeLastCell). _ 
            Row - (ActiveWindow.VisibleRange.Rows.Count \ 2) 
    End With 
End Sub