Remplissage de TextBoxs via ComboBox

Bonjour à tous,

J'ai un bout de programme en vba qui me sert à remplir un tableau. J'aimerais pouvoir remplir des Textboxs à l'aide d'un ComboBox. Les données de ma ComboBox se trouvent sur ma feuille : Feuil7(Liste_G) en colonne A et j'aimerais pouvoir récupérer les informations se trouvant dans les colonnes B C et D, pour les placer respectivement dans TextBox_coef_1, TextBox_coef_2, TextBox_coef_3. Voilà mon bout de programme :

Code:

---

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

Private Sub ComboBox_gamme_Change() Dim x As Integer, y As Integer, dl As Integer dl = Feuil7.Cells(Rows.Count, 1).End(xlUp).Row For x = 1 To dl ' Gamme dans colonne A If ComboBox_gamme.Value = Sheets(Liste_G).Cells(x, 1).Value Then ' Remplissage des 3 textboxs For y = 1 To 3 UserForm1.Controls("Textbox_coef_" & y).Value = _ Sheets(Liste_G).Cells(x, y + 1).Value Next End If Next End Sub

---

L'UserForm est lancé en Feuil8(Produits).

Et comme vous pouvez vous en douter je ne trouve pas pourquoi ça marche pas.

Un grand merci aux personnes qui pourront m'aider.

Je viens de trouver mon erreur, il fallait juste remplacer sheets(Liste_G) par Feuil7.
Je sais pas si je dois laisser mon post ou pas. Il peut peut etre servir à quelqu'un.

@+

Ev idemment si Liste_G n'est pas valorisé ça ne peut pas marcher, mais en indiquant le "name" de la feuille ça aurait pu :

Exemple :

Code:

---

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

Private Sub ComboBox_gamme_Change() Dim x As Integer, y As Integer, dl As Integer   Liste_G = "feuil7"   dl = worksheets(Liste_G).Cells(Rows.Count, 1).End(xlUp).Row For x = 1 To dl ' Gamme dans colonne A If ComboBox_gamme.Value = WorkSheets(Liste_G).Cells(x, 1).Value Then ' Remplissage des 3 textboxs For y = 1 To 3 UserForm1.Controls("Textbox_coef_" & y).Value = _ workSheets(Liste_G).Cells(x, y + 1).Value Next End If Next End Sub

---

En utilisant Feuil7 tu utilises directement le codename de la feuille ce qui est équivalent à workSheets(Liste_G), l'avantage du codename c'est qu'il ne va pas bouger si quelqu'un renomme un onglet, c'est aujourd'hui une façon de coder qui me plait.

Merci, pour l'explication. Ca va me permettre de mettre le nom de mes feuilles comme variable.

Citation:

---

le nom de mes feuilles comme variable

---

Oui effedctivement !

Juste pour info, tu peux renommer dans l'editeur le codename de la feuille c'est parfois plus parlant de travailler avec Finfo, Fdonnees... plutôt qu'avec Feuill1 Feuill8...