code recherche textbox

Bonjour a tous,

Tout d'abord merci pour l'aide du forum qui est une vrai mine d'or

J'ai ( pour ceux qui m'ont deja lu) un fichier de gestion dans lequel je peux faire des entrée des modifications des recherches et autre et je bloque sur un code

j'aimerai qu'appartir d'un texbox je puisse rentré une reference (n°Formule )et que sur une autre texbox (Désignation) il m'affiche a quoi corresponde cette reference exemple

N°Formule ;45454
Désignation ;interrupteur marron

sachant que il y a une base de donnée dans un onglet ( Formule avec en colonne A les reference en colonne B les désignation )
voici mon code qui ne marche pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub TextBoxdes_Change() Dim vrech As Range 'je recherche dans la colonne C la valeur de la combo Set vrech = Sheets("Clients").Columns("A:a").Find(Me.TextBoxfor.Value)   'si je trouve une valeur alors j'affiche la valeur correspondante de la 'colonne B dans le textbox If Not vrech Is Nothing Then Me.TextBoxdes.Value = vrech.Offset(0, 1).Value   'sinon j'affiche un message Else MsgBox "désignation non trouvé!" End If     End Sub

---

Bonjour,

Ton code ne devrait pas etre plutôt dans TextBoxfor_Change ?

Bonjour et merci beaucoup effectivement je me suis trompé de textbox
cela dit mon nouveau probleme est qu'il s'arrete des que je tape un seul chiffre alors que j'en ai 5 a taper??
Avez vous une idée ??