XL 2010 Vlookup erreur si chiffre

[harry226h]

Bonjour a tous
Je sollicite votre aide sur une fonction vlookup.
En fait dans le fichier ci joint, je fais une recherche a partir de la colonne 1 et la valeur a renvoyer se trouve dans la colonne 4.
Lorsque la valeur en "a" est une lettre tout marche mais lorsqu'il s'agit d'un chiffre il y a erreur.
Possible de m'aider a surmonter cela?
Merci d'avance

 

[job75]

Bonsoir harry226h,

Private Sub TextBox2_Change()
Dim c As Range
Set c = Sheets("Feuil1").[A:A].Find(TextBox2, , xlValues, xlWhole)
If c Is Nothing Then TextBox1 = "" Else TextBox1 = c(1, 4)
End Sub

Bonne nuit.

 

[harry226h]

Merci Job75, dans le cas present j'ai pas moins de 10 box a remplir par recherche a l'initialisation et je me demande si le code est realisable

 

[job75]

Et vous croyez que votre code est plus réalisable que le mien ???

 

[harry226h]

Bonjour @job75, certainnement pas. Loin de moi une telle idée. Comment peut on l'appliquer a plusieur champs?