XL 2010 Positionner le curseur dans une cellule avec une liste déroulante

CATPLUS à dit:

Bonjour à tous
Voici ma requête
Dans le fichier joint, colonne A => les 26 lettres de l'alphabet
Colonne B => la liste déroulante.
Comment puis-je SVP aller dans la cellule correspondant a la demande de la liste déroulante?
Cordialement

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$B$1" Then Exit Sub
  Application.Goto (Cells(Application.Match(Target, [A:A], 0), 1))
End Sub

Staple1600 à dit:

Re

Alors pour varier les plaisirs et pour ne pas doublonner
(comme le fait ma précédent proposition)
Une autre syntaxe qui ne fonctionne que pour l'exemple soumis 😉

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Application.Goto Cells(Range([B1] & "1").Column, 1)
End If
End Sub

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    Application.Goto [a:a].Find(Target)
End Sub