formule dans textbox

bonsoir,

dans un petit programme de suivi de stock
j ai rajouté un formulaire de "Consultation du stock" avec une combobox qui donne les produits et une autre les références des pièces
ces informations se trouvent dans une autre feuille du classeur "liste des pièces en stock"
Sur ce formulaire de "consultation" j ai ajouté une textbox qui doit afficher le stock de la pièces en question. ( cette information se trouvant dans la "liste des pièces en stock")
y a t il un code VBA à rajouter ou s'agit il plutôt d'une formule Excel à créer

merci d'avance pour vos bons conseils

Code:

---

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

Private Sub UserForm_Initialize() TextBox1.Text = CStr(Date)   List End Sub   Sub List() Dim I As Integer 'Charge les données de produits Set Ws = Sheets("BDD") With Me.ComboBox1 For I = 1 To Ws.Range("B2").End(xlToRight).Column + 1 .AddItem Ws.Cells(1, I) Next I End With   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Option Explicit   Dim Ws As Worksheet   Private Sub ComboBox1_Change() ' Produits Dim J As Long Dim Colonne As Integer   Me.ComboBox2.Clear If Me.ComboBox1.ListIndex = -1 Then Exit Sub Colonne = Me.ComboBox1.ListIndex + 1 For J = 2 To Ws.Cells(Rows.Count, Colonne).End(xlUp).Row Me.ComboBox2.AddItem Ws.Cells(J, Colonne) Next J   End Sub     Private Sub ComboBox2_Change() ' Références   If Me.ComboBox2.ListIndex = -1 Then Exit Sub   End Sub   Private Sub CommandButton2_Click() 'Quitter Unload Me   End Sub

---

Finalement le problème est résolu

merci

Code:

---

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

Private Sub ComboBox2_Change() ' Références Dim derLign As Integer, cel As Range, Critère As String Application.ScreenUpdating = False If Me.ComboBox2.ListIndex = -1 Then Exit Sub Sheets("Etat_du_Stock").Activate derLign = Range("B" & Rows.Count).End(xlUp).Row For Each cel In Range("B2:B" & derLign) Critère = Me.ComboBox1 & Me.ComboBox2 If Critère = cel.Offset(0, -1) & cel Then Me.TextBox2 = cel.Offset(0, 6)   Next cel Application.ScreenUpdating = True   End Sub

---