Discussion :

[crismans]

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.

[crismans]

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.

@+

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[crismans]

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

[aalex_38]

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...