Réponse #NOM? avec recherche(v)

Résolu
BOBCHAU Messages postés 5 Statut Membre -  
BOBCHAU Messages postés 5 Statut Membre -
Bonjour,
Suite au conseil qui a suivi ma précédente demande, je reformule.

Je cherche à marquer les enregistrements d'une feuille "Travail" par "OK" en colonne 2 si la valeur concat de la ligne est trouvée dans la feuille "Liste" avec le code suivant.

========================================================
Public i As Integer
Public DL_T, DL_L As Long
Public Nomcherché As String
Sub Travail()
DL_T = Sheets("Travail").Columns("A").Find("*", , , , , xlPrevious).Row
For i = 2 To 15 'DL_T ' DL_Travail
    Nomcherché = Range("A" & i).Value
        'MsgBox Nomcherché & " Travail"
    Range("B" & i).Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(Nomcherché,Liste!R[-1]:R[1048574],2)"
    Next i
End Sub

=========================================================
la réponse est #NOM? si je lance la procédure.

Votre aide me sera précieuse car ma feuille "Travail" contient 16000 enregistrements.
D'avance Merci.

https://www.cjoint.com/c/LCDi21GSCox

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.

2 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    1) il y a 2 choses différentes dans ton fichier : une formule RECHERCHEV qui renvoie #NOM car le nom Nomcherché n'existe pas comme plage nommée mais n'existe que dans la macro ! et une macro qui est lancée par on ne sait quoi et qui donc ne s'applique pas

    2) la macro est superfétatoire, la bonne formule de RECHERCHEV associée avec une gestion d'erreur permet de marquer OK quand la concaténation est trouvée dans Liste :
    https://www.cjoint.com/c/LCDmGOZTH5G

    Cdlmnt
    Via

    0
  2. BOBCHAU Messages postés 5 Statut Membre
     
    Merci de votre réponse.
    Une belle épine en moins
    Cordialement
    0