voici un petit vlookup !!!
j'ai un souci lorsque la valeur recherchée n'existe pas il me renvoit un message d'erreur. Comment je peux éviter ça!!!!
 
Private Sub CommandButton1_Click()
 
    Dim pos As String
    Dim L
    Dim C
    C = 1
    L = 1
   
 
 Sheets("feuil1" ).Select
     
    'formule vlookup
 
While Cells(L, C) <> ""
    L = L + 1          
    Cells(L, "B" ) = WorksheetFunction.VLookup(Cells(L, "A" ), Range("supplier" ), 2, False)
     
    Wend
         
End Sub
 

bonsoir,
je te le fais un peu à la hache et sans test mais l'idée doit y etre :
set myvar = WorksheetFunction.VLookup(Cells(L, "A" ), Range("supplier" ), 2, False)  
if not myvar is nothing then Cells(L, "B" ) = myvar
 
nota : comme je n'ai pas testé je ne sais pas ce que renvoie myvar en cas d'erreur, il est possible que ce soit nothing, il est possible que ce soit autre chose, faut voir avec le debogueur et adapter l'évaluation en conséquence...
A+

merci mais j'ai trouvé une autre solution il suffit juste de mettre on error resume next
 
merci quand même bonne soirée