Atteindre rapidement une cellule

[Blafi]

Bonjour,

J'ai un fichier avec une liste de 1400 noms et je cherche à atteindre rapidement la cellule contenant un certain nom. Je précise qu'il peut y avoir des doublons dans les noms.
J'ai essayé d'utiliser la macro ci-dessous trouvée sur le forum en entrant le nom cherché dans la cellule L3, mais à chaque fois j'obtiens une erreur "variable non définie" sur la dernière ligne "Trouve.select"
Option Explicit
Dim Trouve As Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$L$2" Then Exit Sub
Set Trouve = Me.Range("A:A").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
Trouve.Select
End Sub

Pouvez vous me dire ce qui "cloche" dans la macro...
Merci d'avance (si possible avec réponse rapide)

 

[Robert]

Bonjour Blafi, bonjour le forum.

Si le nom est dans la cellule L3, n'utilise pas $L$2 dans le code mais $L$3. Ensuite, si il n'existe aucune occurrence trouvé, Trouve.Select va planter... Que fait Option Explicit à l'intérieur de ta macro ? Ton code modifié :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range
If Target.Address <> "$L$3" Then Exit Sub
Set Trouve = Me.Range("A:A").Find(Target, LookIn:=xlValues, lookat:=xlWhole)
If Not Toruve Is Nothing Then Trouve.Select
End Sub

 

[Blafi]

Merci,
Après rectification de mon erreur de colonne, ça marche !
encore merci
A +