combobox et listbox avec variable

[chris541]

Bonjour à toutes et à tous
j'ai préparé un userform et je souhaite récupérer les items correspondants au choix de la combobox1
tout est prêt dans le fichier joint
Merci pour votre aide
🙄

 

[Pierrot93]

Re : combobox et listbox avec variable

Re,

essaye avec ceci :

Option Explicit
  Private Sub UserForm_Initialize()
  Dim i As Long
  For i = 2 To Range("IV2").End(xlToLeft).Column Step 2
     ComboBox2.AddItem Cells(2, i).Text
  Next i
  ComboBox1.List = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
  TextBox1 = Cells(2, ActiveCell.Column).Text
  End Sub
  Private Sub ComboBox2_Click()
  Dim i As Integer, m As Byte
  If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then Exit Sub
  m = ComboBox2.ListIndex * 2 + 2
  ListBox1.Clear
  TextBox2 = ""
  For i = 4 To 8
      If Cells(i, m).Text Like "*" & ComboBox1.Value & "*" Then
          ListBox1.AddItem Cells(i, m).Text & " " & Cells(i, m).Offset(0, 1)
          TextBox2 = Val(TextBox2) + Val(Cells(i, m))
      End If
  Next i
  End Sub

attention j'ai remplacé ta listbox pour la some par un textbox....

 

[chris541]

Re : combobox et listbox avec variable

Super c top!
merci bcp