XL 2021 A l'ouverture de la feuille, aller en bas du tableau

[Claudinedu13]

Bonjour,

Je commence à avoir beaucoup de lignes dans mes tableaux, je souhaiterai qu'à l'ouverture des feuilles, voir la fin du tableau.

Merci

 

[JM27]

bonjour
dans le module de la feuille

Private Sub Worksheet_Activate()
    Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row), Scroll:=True
End Sub

 

[Claudinedu13]

bonjour
dans le module de la feuille

Private Sub Worksheet_Activate()
    Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row), Scroll:=True
End Sub

Merci @JM27

C'est possible de voir les 3 ou 4 dernières lignes (parce que là je ne vois que la dernière) ?

 

[Volvo64400]

Bonjour,

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Long
    
    visibleRows = 3 ' Nombre de lignes visibles souhaité
    
    ' Parcourt toutes les feuilles du classeur
    For Each ws In ThisWorkbook.Worksheets
        ' Active la feuille
        ws.Activate
        ' Détermine la dernière ligne non vide dans la colonne A
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' Vérifie si le tableau a plus de lignes que ce qui est visible
        If lastRow > visibleRows Then
            ' Fait défiler pour afficher les 'visibleRows' dernières lignes
            ws.Cells(lastRow - visibleRows + 1, 1).Select
            ActiveWindow.ScrollRow = lastRow - visibleRows + 1
        Else
            ' Si moins de lignes, afficher depuis la première ligne
            ws.Cells(1, 1).Select
        End If
    Next ws
End Sub

 

[Claudinedu13]

Bonjour,

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Long
   
    visibleRows = 3 ' Nombre de lignes visibles souhaité
   
    ' Parcourt toutes les feuilles du classeur
    For Each ws In ThisWorkbook.Worksheets
        ' Active la feuille
        ws.Activate
        ' Détermine la dernière ligne non vide dans la colonne A
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
       
        ' Vérifie si le tableau a plus de lignes que ce qui est visible
        If lastRow > visibleRows Then
            ' Fait défiler pour afficher les 'visibleRows' dernières lignes
            ws.Cells(lastRow - visibleRows + 1, 1).Select
            ActiveWindow.ScrollRow = lastRow - visibleRows + 1
        Else
            ' Si moins de lignes, afficher depuis la première ligne
            ws.Cells(1, 1).Select
        End If
    Next ws
End Sub

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Long
    Set ws = Worksheets("Liste_Clients")
    visibleRows = 10 ' Nombre de lignes visibles souhaité
    
        ' Active la feuille
        ws.Activate
        ' Détermine la dernière ligne non vide dans la colonne A
        lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        
        ' Vérifie si le tableau a plus de lignes que ce qui est visible
        If lastRow > visibleRows Then
            ' Fait défiler pour afficher les 'visibleRows' dernières lignes
            ws.Cells(lastRow - visibleRows + 1, 1).Select
            ActiveWindow.ScrollRow = lastRow - visibleRows + 1
        Else
            ' Si moins de lignes, afficher depuis la première ligne
            ws.Cells(1, 1).Select
        End If
End Sub

Merci @Volvo64400

Je l'ai adapté pour mes besoins, ça a l'air nickel

 

[JM27]

bonjour
tout simplement

Private Sub Worksheet_Activate()
    Dim NbLigne As Byte
    NbLigne = 2
    On Error Resume Next
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row - NbLigne), Scroll:=True
    If Err <> 0 Then
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row), Scroll:=True
    End If
On Error Goto 0
End Sub

 

[Claudinedu13]

bonjour
tout simplement

Private Sub Worksheet_Activate()
    Dim NbLigne As Byte
    NbLigne = 2
    On Error Resume Next
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row - NbLigne), Scroll:=True
    If Err <> 0 Then
        Application.Goto reference:=Range("A" & Range("A" & Rows.Count).End(xlUp).Row), Scroll:=True
    End If
On Error Goto 0
End Sub

Merci @JM27