afficher le résultat dans un userform1.textbox2

[jtitin]

Bonjour à tous

je cherche à obtenir le résultat suivant dans un userform.
je tape dans textbox1 une valeur, si cette valeur existe dans le tableau alors j'affiche en textbox2 l'en tête de la colonne de la valeur trouvée.
ex: si textbox1 = radis alors textbox2 = 2
si la valeur textbox1 n'est pas trouvée alors textbox2 = 0

je vous joint un fichier pour exemple

merci pour votre aide

 

[jtitin]

Re : afficher le résultat dans un userform1.textbox2

Re
gilbert_rgi m'avait répondue avec une fontion sommeprod
=SOMMEPROD((B6:E18=G5)*B5:E5)
je souhaiterai obtenir le même résultat dans un userform quand la valeur textbox1 est entrée

merci

 

[Papou-net]

Re : afficher le résultat dans un userform1.textbox2

Bonsoir jtitin,

Vois si le code suivant te convient :

Private Sub TextBox1_Change()
With Sheets("Feuil1")
  Set trouve = .Cells.Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole)
  If trouve Is Nothing Then TextBox2 = 0: Exit Sub
  TextBox2 = .Cells(4, trouve.Column)
End With
End Sub

Espérant avoir répondu.

Cordialement.

 

[jtitin]

Re : afficher le résultat dans un userform1.textbox2

Grand merci Papou-net
marche super