boucler sur valeurs listbox

[tonton29610]

Bonsoir le forum,

Encore un coup de main pour paufiner mon travail, en partant de la liste cascade de Jacques Boisgontier je voudrais récupérer les valeurs correspondant à toutes celle apparraissant dans la listbox2, je n'y arrive pas malgré de multiples essais. Je vous joint le classeur explicatif.

Merci d'avance de vous pencher sur mon problème.

 

[BERRACHED said]

Re : boucler sur valeurs listbox

Salut,tonton29610

Voici une modif sur les codes a tester :

Private Sub ComboBox1_Change()
  i = 0
  Me.ListBox2.Clear
  For Each c In Range([A2], [A65000].End(xlUp))
    If c.Offset(0, 0) = Me.ComboBox1 Or Me.ComboBox1 = "*" Then
      Me.ListBox2.AddItem
      Me.ListBox2.List(i, 0) = c.Value
      Me.ListBox2.List(i, 1) = c.Offset(0, 1).Value
      Me.ListBox2.List(i, 2) = c.Offset(0, 2).Value
      Me.ListBox2.List(i, 3) = c.Offset(0, 3).Value
      i = i + 1
    End If
  Next c
End Sub

Private Sub ListBox2_Click()

i = 0
  Me.ListBox1.Clear
  For Each c In Range([A2], [A65000].End(xlUp))
  
    If c.Offset(0, 0) = Me.ListBox2 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(i, 0) = c.Value
      Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
      Me.ListBox1.List(i, 2) = c.Offset(0, 2).Value
      Me.ListBox1.List(i, 3) = c.Offset(0, 3).Value
      i = i + 1
      
    End If
  Next c
End Sub

Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a2:a15")
     If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
  Next c
  Me.ComboBox1.AddItem "*"
  For Each i In mondico.items
    Me.ComboBox1.AddItem i
  Next  
End Sub

Cordialement

 

[tonton29610]

Re : boucler sur valeurs listbox

Merci de ton attention, mais de cette façon cela fonctionne comme la combobox. ce que je souhaite c'est qu'à l'initialisation de l'UF ou à la rigueur sur un click dans la listbox2 je puisse afficher les valeurs pour A et C dans la listbox1.