Comment accéder rapidement à la cellule adjacente en fonction de la sélection dans une liste déroulante Excel ?

Avez-vous déjà imaginé pouvoir accéder à la cellule adjacente en fonction de la sélection dans une liste déroulante Excel ? Par exemple, ici, j'ai une liste déroulante dans la cellule C1 qui inclut les noms des jours de la semaine, la colonne A est la liste des dates et la colonne B est la liste des heures. Maintenant, lorsque je choisis un nom de jour de la semaine dans la liste déroulante, par exemple Jeudi, le curseur passe à B5, qui est adjacent au Jeudi dans la colonne A. Dans Excel, il n'y a pas de fonctionnalité intégrée pour résoudre cette tâche, mais avec un puissant code VBA, c'est possible.

Accéder à la cellule adjacente en fonction de la valeur dans une liste déroulante via VBA

Accéder à la cellule adjacente en fonction de la valeur dans une liste déroulante via VBA

1. Sélectionnez un jour que vous souhaitez utiliser dans la liste déroulante, puis appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic pour Applications fenêtre.

2. Cliquez sur Insertion > Module, collez le code ci-dessous dans le Module.

VBA : Accéder à la cellule adjacente en fonction de la valeur

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
    If Target.Address <> [C1].Address Then
       Exit Sub
    Else
       JumpToCell

    End If
End Sub

Sub JumpToCell()
    Dim xRg, yRg As Range
    Dim strAddress As String
    strAddress = ""
    Set yRg = Range("A2:A8")
    For Each xRg In yRg
    'MsgBox Cell.Value
        If xRg.Value = ActiveCell.Value Then
           strAddress = xRg.Address
        End If
    Next
    If strAddress = "" Then
       MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
        vbInformation, "Kutools for Excel"
       Exit Sub
    Else
       Range(strAddress).Offset(0, 1).Select
    End If
End Sub

3. Appuyez sur la touche F5 , puis le curseur passe à la cellule adjacente en fonction de la valeur dans la liste déroulante.

Remarque :

Dans le code VBA, A2:A8 est la liste qui contient les valeurs correspondant aux valeurs de la liste déroulante. Vous pouvez modifier cette référence selon vos besoins.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !