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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

👍
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
162
Réponses
1
Affichages
289
Réponses
11
Affichages
153
Retour