2 Listbox liés

[denis]

Bonjour à tous !

J'ai 2 listbox dans un userform et 1 classeur source à 2 colonnes :
Exemple classeur source :
Colonne 1 - Colonne 2
Paris - France
Milan - Italie
Si je choisis Paris dans Listbox 1, alors je veux qu'il m'affiche France automatiquement dans Listbox 2.
soit la valeur de la colonne 2 meme ligne que la colonne 1

Voici le code pour le moment :

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Workbooks('Liste.xls').Sheets('Feuil1').Range('A1').End(xlDown).Row
Colonne1.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 1)
Next i
End Sub

Comment lui coder la valeur automatique de la listbox 2??
sachant qu'il dépend du choix de la listbox1 , à une valeur de listbox 1 correspond une valeur dans listbox2
J'ai essayé recherche v mais j'ai un classeur source de 250 lignes , j'aimerai que ca se fasse dans le module de ma macro
et non sur excel directement.

Quelqun voit il la solution ??
c surement juste une ligne à ajouter ..du genre
Colonne2.AddItem Workbooks('Liste.xls').Sheets('Feuil1').Cells(i, 2) .. mais ca ne marche pas !

 

[Bebere]

bonjour Denis
1 exemple en pièce jointe
je choisirais d'abord pays et puis ville
donc 1 colonne avec pays,france,belgique,italie,etc
la colonne suivante les villes de france
la colonne suivante les villes de belgique
la colonne suivante les villes d'italie
à bientôt
[file name=2Listbox.zip size=14437]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/2Listbox.zip[/file]

 

[denis]

je ne saisis pas trop comment marche ton fichier .
je ne vois pas où est utilisé l'userform, je lis ton code mais ne comprends leur utilisation

y'a t'il un moyen simple de faire comprendre en vb
si listbox1 = A 115 alors listbox 2 = B115 (ie meme ligne mais colonne suivante) ?
l'ajout de ce code suffirait je pense à mon module

Merci, denis