Re,
Merci pour ton fichier,
A tester....ça fonctionne chez moi,
Private Sub valide_Click()
Dim dl As Long, resultat As String, plage As Range, a As Long
With Sheets("Paramètres")
dl = .Range("A" & Rows.Count).End(xlUp).Row
Set plage = .Range("A2:B" & dl)
On Error GoTo 1
a = TextBoxproduit.Value
resultat = Application.VLookup(a, plage, 2, False)
End With
nomproduit = resultat
1
a = Empty
End Sub
Private Sub TextBoxproduit_Change()
nomproduit = Empty
End Sub
Cordialement,