Recherchev + passer a la ligne suivante

gosselien à dit:

Bonjour,

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

VB:

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

Cliquez pour agrandir...

gosselien à dit:

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)

Cliquez pour agrandir...