Discussion :

[julien10]

bonjour à tous,
Je suis complètement novice, mais essaie de progresser dans VB, là je suis complètement bloqué, et ne sais comment aborder le problème.

Voilà j'aimerai dans renvoyer des valeurs que j'aurais saisie dans mes TextBox en fonction de l'élément sélectionné dans mon ComboBox.... ça doit surement vous paraitre simple, mais alors pour moi encore une fonction à apprendre!!!

je joins le fichier, je suis sur un excel de 2003!!
Merci à vous !!

Jul

[decondelite]

Je comprends que tu veuilles remplir la textbox de gauche, mais je ne comprends pas comment tu veux qu'elle soit remplie en fonction de ta combobox.

Explique toi un peu plus, stp.

[julien10]

merci de t'intéresser à mon cas....alors en fait dans mon tableau recapitulatif "saisie" je retrouve tous mes éléments "meubles" où je dois leurs associées des heures selons les évènements Prod / Reg / Manut ..... par atelier.
Dans mon Userform, je voudrais pouvoir selectionner un meuble dans la liste et lui renseigner tous les temps selon les ateliers pour que les valeurs se reportent bien dans le tableau recapitulatif " saisie".
j'espère avoir été suffisemment explicite
merci

Jul

[decondelite]

Ah d'accord j'ai compris.

Eh bien ce que tu peux faire, c'est utiliser la procédure évènementielle Meuble_Change et changer la valeur de tous tes champs en fonction de la nouvelle valeur de ta combobox.

Petit exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Meuble_Change()
    If Meuble.Value = ThisWorkbook.Sheets(2).Range("A7").Value Then
        TextBox1.Value = "Truc"
        TextBox2.Value = "Ordinaire"
        ' etc...
    End If
    If Meuble.Value = ThisWorkbook.Sheets(2).Range("A8").Value Then
        TextBox1.Value = "Bidule"
        TextBox2.Value = "Original"
        ' etc...
    End If
    ' etc...
End Sub

Ceci dit, plutôt que de faire comme ça, je te recommande vivement de mettre toutes infos à remplir sur la même feuille que ta liste de meubles, et ainsi programmer de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Meuble_Change()
    Dim i As Integer, j As Integer, derniere_ligne As Integer
    derniere_ligne = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To derniere_ligne
        ' Les meubles sont dans la colonne 1
        If Meuble.Value = ThisWorkbook.Sheets(2).Cells(i, 1).Value Then
            ' Changement des valeurs des 71 textbox
            For j = 1 To 71
                UserForm1.Controls("Textbox" & j).Value = _
                ThisWorkbook.Sheets(2).Cells(i, j + 1).Value
            Next
        End If
    Next
End Sub

Cette méthode suppose que tu as le contenu de tes 71 textbox dans les 71 colonnes qui suivent ton nom de meuble sur ta feuille Excel.
Je n'ai rien testé je ne suis absolument pas sûr de ma réponse car tu ne m'as donné aucune valeur à remplir.

En revanche la première méthode fonctionn à coup sûr, mais elles est beaucoup plus lourde à implémenter.