Recherchev + passer a la ligne suivante

[olivier19]

bonjour,
je cherche a faire une macro recherchev dans la feuil1 critère colonne M
plage de recherche feuil2 A2:B15 résultat correspondant a la deuxième colonne
une foie trouvé copier la valeur dans la colonne N
si non trouvé mettre non trouvé
puis passer a la ligne suivante et ainsi de suite jusqu’à la dernière ligne non vide

je vous joint un extrait de fichier car très volumineux et donc très long en calcule

d'avance merci

 

[gosselien]

Bonjour,

essaye ceci
[table étant une zone nommée de la feuille 2]

Option Explicit
Sub recherche()
Dim Last
Last = [M65000].End(xlUp).Row
Sheets("Feuil1").Select
    Range("N2:N" & Last).Select
    Selection.FormulaR1C1 = "=iferror(VLOOKUP(RC[-1],table,2,false),""Non trouvé"")"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[olivier19]

bonjour,
il doit y avoir un problème car cela me met non trouvé sur toute les lignes

Bonjour,

essaye ceci
[table étant une zone nommée de la feuille 2]

Option Explicit
Sub recherche()
Dim Last
Last = [M65000].End(xlUp).Row
Sheets("Feuil1").Select
    Range("N2:N" & Last).Select
    Selection.FormulaR1C1 = "=iferror(VLOOKUP(RC[-1],table,2,false),""Non trouvé"")"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[gosselien]

Bonjour,

ici ça fonctionne , je te renvoie ton fichier

P.

 

[olivier19]

bonjour et merci
j'aurais voulu savoir a quoi correspond

Selection.FormulaR1C1

et

RC[-1]

car je voudrais du coup l'adapter a d'autre fichier

 

[gosselien]

re,

VLOOKUP(RC[-1]

vlookup = rechercheV ----> R = row (ligne) C[-1] = colonne -1 par rapport à la position de départ (colonne N dans Range("N2:N" & Last).Select)

 

[olivier19]

Ok merci
bonne journée

re,

VLOOKUP(RC[-1]

vlookup = rechercheV ----> R = row (ligne) C[-1] = colonne -1 par rapport à la position de départ (colonne N dans Range("N2:N" & Last).Select)