SmartFAQ is developed by The SmartFactory (http://www.smartfactory.ca), a division of InBox Solutions (http://www.inboxsolutions.net)

[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 (4537 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

  Imprimer la Q&R Envoyer la Q&R