C'est normal que tu aies une erreur
TextBox3.Value = Application.VLookup(TextBox2.Value, wbk.Sheets("Feuil1").Range("A2:A2558"), 2, 0).Value
Tu précises que ton tableau est A2:A2558 (une seule colonne, donc) et tu demandes à VLookUp d'aller chercher la valeur dans la deuxième colonne...
Tu dois utiliser A2:B2558
TextBox3.Value = Application.VLookup(TextBox2.Value, wbk.Sheets("Feuil1").Range("A2:B2558"), 2, 0).Value
Cela étant, tu aurais intérêt à travailler avec des tableaux de données (ListObject en vba), ce serait mille fois plus simple.
Partager