Userform avec listes modifiables liées

[Nashpuss]

Bonjour,

J'ai une base avec une catégorie "personne", une sous catégorie "animaux" variant selon la personne. Je voudrais dans ma Userform que ma liste déroulante "animaux" soit générée en fonction du choix de ma liste "personne".
Et je voudrais que cette listebox aille piocher directement à parir de cette base (qui peut évoluer souvent).
Un truc genre "si la personne sélectionnée est Martin" alors dans la base recherche toutes les lignes ayant "Martin" dans la colonne A et met dans la Liste modifiable les valeurs de la colonne 2. J'imagine qu'il doit y avoir besoin d'une boucle de recherche et d'un tableau, mais j'y connais rien.
Comment puis-je procéder?

C'est déjà peut être du déjà vu, mais pour un débutant comme moi, ça reste compliqué d'adapter un truc pouvant peut être ressembler.

Voici l'exemple

Je remercie d'avance les bonnes ames qui m'aideront

 

[BOISGONTIER]

Re : Userform avec listes modifiables liées

Bonjour,

Voir PJ

Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  Set f = Sheets("BD")
  For Each c In Range(f.[A2], f.[A65000].End(xlUp))
    mondico.Item(c.Value) = c.Value
  Next c
  Me.ComboBox1.List = mondico.items
End Sub

Private Sub ComboBox1_Change()
  i = 0
  Me.ListBox1.Clear
  Set f = Sheets("BD")
  For Each c In Range(f.[b2], f.[b65000].End(xlUp))
    If c.Offset(0, -1) = Me.ComboBox1 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(i, 0) = c.Value
      Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
      i = i + 1
    End If
  Next c
End Sub

JB
http://boisgontierjacques.free.fr/

 

[Nashpuss]

Re : Userform avec listes modifiables liées

Merci beaucoup ça marche bien. Je vais essayer de comprendre maintenant mais le truc dessous je sais pas ce que c'est.

Set mondico = CreateObject("Scripting.Dictionary")