synchronisation de 2 listes

Bonjour
Avec deux contrôles zones de listes déroulantes de la boîte à outils
contrôles, faire un clic droit sur le contrôle Combobox1, visualiser le code
et coller ceci :
Private Sub ComboBox1_Change()
MajListes Me.ComboBox2, ComboBox1.ListIndex
End Sub
Private Sub MajListes(Cbbx As MSForms.ComboBox, ValeurIndx As Integer)
Const PremiereLigne As Integer = 1
Dim DerniereLigne As Integer, NoCol As Integer, CelEntree As Range
NoCol = ValeurIndx + 2
DerniereLigne = Cells(PremiereLigne, NoCol).End(xlDown).Row
Set CelEntree = ActiveSheet.Range(Cells(PremiereLigne, NoCol),
Cells(DerniereLigne, NoCol))
With Cbbx
.ListFillRange = CelEntree.Address
.ListIndex = 0
End With
Set CelEntree = Nothing
End Sub

Sinon sans macro voir exemple ici :
http://www.excelabo.net/xl/listes.php

Cordialement
Pascal


"AnThOnY" <AnThOnY@discussions.microsoft.com> a écrit dans le message de
news:167D0E69-39C2-4C67-A371-0EF90E7E4C0C@microsoft.com...

Comment faire pour synchrnoniser 2 listes, pour que le changement dans une
liste entraine aussi le changement dans l'autre.

Par exemple :
liste 1 : liste 2 :
pêche 10
poire 12
pomme 6

En faite, ce que je recherche s'est que quand on choisit par exemple pêche
dans la 1er liste et que dans la 2ème liste son poids change automatique.

Pour simplifier ce que je recherche c'est que les listes soient synchro
entre les niveaux.

Salut,

Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
End Sub

Hervé.

"AnThOnY" <AnThOnY@discussions.microsoft.com> a écrit dans le message news:
167D0E69-39C2-4C67-A371-0EF90E7E4C0C@microsoft.com...

Comment faire pour synchrnoniser 2 listes, pour que le changement dans une
liste entraine aussi le changement dans l'autre.

Par exemple :
liste 1 : liste 2 :
pêche 10
poire 12
pomme 6

En faite, ce que je recherche s'est que quand on choisit par exemple pêche
dans la 1er liste et que dans la 2ème liste son poids change automatique.

Pour simplifier ce que je recherche c'est que les listes soient synchro
entre les niveaux.