Atteindre une cellule

Bonjour à tous,

Me voilà coincé depuis un jour sur une problématique qui à l'air toute simple mais qui me bloque et empêche mon travail d'avancer.

J'aimerais , lorsque je choisis une valeur en A5 parmi une liste déroulante, atteindre directement ou, après avoir fait entrer, la valeur correspondante qui se trouve plus bas dans la même colonne.

J'ai essayé plusieurs macros mais aucune ne semble marcher.

Merci pour votre aide.

Manes

Bonjour,

Bonjour

Code à essayer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Integer
If Not Intersect(Target, Range("A5")) Is Nothing Then
    lig = Range("A6:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(Target, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows).Row
    Range("A" & lig).Select
End If
End Sub

Pour placer le code,

• click droite sur l'onglet concerné
• choisir l'option "visualiser le code"
• coller le code ci-dessus dans la fenêtre

Si ok, merci de cliquer sur le V vert à coté du bouton EDITER pour cloturer le fil

Crdlt

Ca marche nickel , je te remercie !

Bonne journée