Bonjour VeyBa, Coco, le Forum
Vite fait avant de partir au taff... Je ne comprends pas ta manière de chercher la valeur de la cellule "Source" => Cell.OffSet(8, 1)... (Cell n'est pas une Cellule en VBA, c'est Cells, de plus le Offset doit se faire à partir d'un point de départ...)
Sinon pour te faire avancer, voici une macro qui retournera un VlookUp dans la TextBox en fonction de la valeur de la Cellule Active... Avec une gestion de l'erreur si VlookUp ne retourne rien...
Option Explicit
Private Sub CommandButton1_Click()
Dim PlageSource As Range
Dim ValSearched As Range
Dim ValReturned As String
Set PlageSource = Sheets("Feuil1").Range("a1:b7")
Set ValSearched = ActiveCell '<<<< Sinon => ActiveCell.OffSet(8, 1)
On Error GoTo ErrorHandler
ValReturned = Application.WorksheetFunction.VLookup(ValSearched, PlageSource, 2, False)
TextBox1.Value = ValReturned
Exit Sub
ErrorHandler:
If Err = 1004 Then MsgBox "La valeur " & ValSearched & " n'a pas été trouvée"
End Sub
Bonne Journée
@+Thierry