Remplir Textbox apres recherche

[nico_7512]

Bonjour à Toutes et tous
Je souhaiterais remplir 2 textbox après update d'un combobox.
La recherche se ferait à partir de 2 listes
Je joins un fichier exemple
En clair lorsque je change mon combobox avec le produit la couleur et la série se remplirait automaiquement

Je remercie toutes les bonnes ames du forum qui pourrait m'aider

Cordiallement
Nico

 

[Dull]

Re : Remplir Textbox apres recherche

Salut nico_7512, le Forum

essaye ce code à mettre dans le module de l'Userform

Private Sub ComboBox1_Change()
Dim C As Range
Set C = Sheets("Feuil1").Columns("A").Find(ComboBox1)
If Not C Is Nothing Then
TextBox1.Value = C.Offset(, 1).Value
TextBox2.Value = C.Offset(, 2).Value
End If
End Sub

Bonne Journée

 

[Hulk]

Re : Remplir Textbox apres recherche

Hello Dull , Nico,

Rien que pour le fun on peut rajouter après Textbox2...

TextBox1.BackColor = C.Offset(, 1).Interior.Color

Bonne journée à vous !

 

[nico_7512]

Re : Remplir Textbox apres recherche

Merci à tout ceux qui ont travillé sur mon problème et pour la rapidité à trouver cette solution qui me convient tout à fait

Nico