Afficher valeur dans textbox par une combobox

Bonjour,

voilà mon problème :

J'ai une feuille excel avec un tableau. En gros ce que je veux faire c'est une recherchev, mais à afficher dans un userform.

Du coup, j'ai une combobox dans l'userform, donc je sélectionne un nom, et j'ai mis des textbox, afin que les valeurs du tableau correspondantes au nom de la combobox s'affichent dans les text box.

Voila, merci pour vos réponses

je joins un fichier

Bonjour,

une façon de faire :

Private Sub ComboBox1_Change()
    Dim c As Range, sh As Worksheet
    Set sh = Worksheets("Fourrages")
    Set c = sh.[B:B].Find(ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
    TextBox1 = IIf(c Is Nothing, "", c.Offset(, 2))
    TextBox2 = IIf(c Is Nothing, "", c.Offset(, 4))
End Sub

eric