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

Claudinedu13

XLDnaute Junior
Bonjour,

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

Merci
 

Volvo64400

XLDnaute Nouveau
Bonjour,

VB:
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

XLDnaute Junior
Bonjour,

VB:
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
VB:
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

XLDnaute Barbatruc
bonjour
tout simplement
VB:
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

XLDnaute Junior
bonjour
tout simplement
VB:
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
 

Discussions similaires

Réponses
3
Affichages
195

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 087
Messages
2 116 082
Membres
112 653
dernier inscrit
flapynot7x