Il est souvent nécessaire de s’assurer que les deux listes fonctionnent de manière cohérente. Par exemple, certains marchés peuvent être associés à certaines villes. Une liste de villes s’affiche dans une seule liste. Lorsque vous sélectionnez un élément dans cette liste, la deuxième liste affiche une liste de magasins.

Figure 1: Les zones de liste liées

Comment cela peut-il être accompli ? Les éléments d’un tableau peuvent être de type Variant, et une variable de type Variant peut être n’importe quoi, en particulier un autre tableau. Regardons le code suivant :

Dim city As Variant

Dim shop(2) As Variant

Private Sub UserForm_Initialize()

   city = Array("Yaounde", "Douala")

   shop(0) = Array("Marché Mokolo", "Marché du Mfoundi", "Marché Madagascar", "Marché Nvog-Mbi")

   shop(1) = Array("Marché Mboppi", "Marché Dakar", "Marché Congo")

   ListBox1.List = city

   ListBox1.ListIndex = 0

End Sub

Private Sub ListBox1_Click()

   ListBox2.Clear

   ListBox2.List = shop(ListBox1.ListIndex)

End Sub