Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Atteindre rapidement une cellule

  • Initiateur de la discussion Initiateur de la discussion Blafi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Blafi

XLDnaute Occasionnel
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)
 
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é :
Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…