Listes deroulantes affiche la meme selectiondans deux feuilles differentes

Bonjour,

J'aimerais avoir la possibilite d'avoir deux liste deroulantes qui affiche la meme selection en fontion de ce que l'on choisis dans l'une d'entre elle.

Je m'explique:

Ici, j'aimerais que lorsque je choisis Mars par exemple dans la liste deroulante de l'onglet "sheet2" , on voit apparaitre Mars dans la liste deroulante de l'onglet "sheet 3" et vice versa.

Ci joint le fichier

Merci d'avance!

Bonjour,

Pour ça, il faut utiliser la procédure événementielle "Change()" du classeur (ThisWorkbook) donc, code à mettre dans son module :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Address(0, 0) <> "B3" Then Exit Sub

    Application.EnableEvents = False

    Select Case Sh.Name

        Case "Sheet2": Worksheets("Sheet3").Range("B3").Value = Target.Value
        Case "Sheet3":: Worksheets("Sheet2").Range("B3").Value = Target.Value

    End Select

    Application.EnableEvents = True

End Sub

Merci beaucoup,

Que dois je changer dans cette macro dans le cas ou les liste deroulantes ne se trouve pas sur la meme cellule

Exemple:

Liste deroulante 1 : sheet 2 cellule L2

Liste deroulante 2: sheet 3 cellule C4

Merci

Comme ceci :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Select Case Sh.Name

        Case "Sheet2"
            If Target.Address(0, 0) <> "L2" Then Exit Sub
            Application.EnableEvents = False
            Worksheets("Sheet3").Range("C4").Value = Target.Value

        Case "Sheet3"
            If Target.Address(0, 0) <> "C4" Then Exit Sub
            Application.EnableEvents = False
            Worksheets("Sheet2").Range("L2").Value = Target.Value

    End Select

    Application.EnableEvents = True

End Sub