Comment puis-je modifier ce sous-titre pour que le double-clic sur la même cellule saute entre le haut et le bas de la colonne du tableau ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Value = "Jump" Then
        Cancel = True
        Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
    End If
End Sub
0
user2319146 22 févr. 2020 à 02:03

1 réponse

Meilleure réponse

Vous pourriez faire quelque chose comme ça:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Value = "Jump" Then
        Cancel = True
        If Target.Row < 10 Then
            Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
        Else
            Cells(1, 1).Select
        End If
    End If
End Sub

Edit : si vous voulez juste changer la direction alors :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Static GoUp As Boolean
    If Target.Value = "Jump" Then
        Cancel = True
        If GoUp  Then
            Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Select
        Else
            Cells(3, 1).Select 'first cell below any frozen rows at the top
        End If
        GoUp = Not GoUp
    End If
End Sub
0
Tim Williams 22 févr. 2020 à 01:12