Discussion :

[Tournament]

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 :

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

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