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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.