Comment synchroniser les listes déroulantes dans plusieurs feuilles de calcul dans Excel ?

Supposons que vous ayez des listes déroulantes sur plusieurs feuilles de calcul dans un classeur qui contiennent exactement les mêmes éléments déroulants. Vous souhaitez maintenant synchroniser les listes déroulantes entre les feuilles de calcul afin qu'une fois que vous avez sélectionné un élément dans une liste déroulante d'une feuille de calcul, les listes déroulantes des autres feuilles de calcul soient automatiquement synchronisées avec la même sélection. Cet article fournit un code VBA pour vous aider à résoudre ce problème.

Synchroniser les listes déroulantes dans plusieurs feuilles de calcul avec le code VBA

Synchroniser les listes déroulantes dans plusieurs feuilles de calcul avec le code VBA

Par exemple, les listes déroulantes se trouvent dans cinq feuilles de calcul nommées Feuil1, Feuil2, ..., Feuille5, pour synchroniser les listes déroulantes dans d'autres feuilles de calcul en fonction de la sélection déroulante dans Sheet1, veuillez appliquer le code VBA suivant pour le faire.

1. Ouvrez Sheet1, cliquez avec le bouton droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel.

2. dans le Microsoft Visual Basic pour applications fenêtre, collez le code VBA suivant dans la Feuil1 (Code) fenêtre.

Code VBA : liste déroulante Synchroniser dans plusieurs feuilles de calcul

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
    Dim tSheet1 As Worksheet
    Dim tRange As Range
    Dim xRangeStr As String
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    
    xRangeStr = "A2:A11"

    Set tRange = Intersect(Target, Range(xRangeStr))
    If Not tRange Is Nothing Then
        xRangeStr = tRange.Address
        Application.EnableEvents = False
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Application.EnableEvents = True
    End If
    
End Sub

Notes:

3. appuie sur le autre + Q touches pour fermer le Microsoft Visual Basic pour applications fenêtre.

Désormais, lorsque vous sélectionnez un élément dans la liste déroulante de Feuille1, les listes déroulantes dans les feuilles de calcul spécifiées seront synchronisées automatiquement pour avoir la même sélection. Voir la démo ci-dessous.

Démo : Synchroniser les listes déroulantes dans plusieurs feuilles de calcul dans Excel