[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

[VBA] Afficher au centre de l'écran, la dernière ligne utilisée d'une feuille (à l'ouverture d'un classeur).

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

Cette Q&R a été trouvée sur myDearFriend! Excel Pages : http://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=41