Lier deux listes dans une même feuille ?

Bonjour, j'essaie de lier deux listes ayant les mêmes données dans une même feuille.

J'aimerais que lorsque je sélectionne l'un des choix de la liste, ce choix vient sur la deuxième liste plus loin et inversement.

J'ai essayé avec un code sur une nouvelle feuille :

"Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C1") <> Range("D1") Then

Range("C1").Value = Range("D1").Value

End If

If Range("D1") <> Range("C1") Then

Range("D1").Value = Range("C1").Value

End If

End Sub"

Toutefois, avec un tel code, seul la deuxième liste (ici celle en D1) peut être changée et le choix vient aussi sur la liste en C1.

Comment faire pour que les deux listes soient liées ? Je vous remercie.

Bonjour,

Essayez ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then
        If Range("C1") <> Range("D1") Then Range("C1").Value = Range("D1").Value
    ElseIf Target.Address = "$C$1" Then
        If Range("D1") <> Range("C1") Then Range("D1").Value = Range("C1").Value
    End If
End Sub

Cdlt

Ça marche parfaitement, merci beaucoup ! :)