Liste déroulante à deux étages

Dans la cellule B1, vous avez créé, grâce à la commande Données – Validation – Liste, un menu déroulant avec les deux options « Fruit » et
« Légume ». Vous souhaitez définir en B2 une liste de validation différente selon le choix effectué en B1, comme dans l'exemple ci-dessous :

Vous pouvez résoudre ce problème de façon tout à fait esthétique grâce à la macro événementielle ci-dessous, attachée à la feuille de calcul concernée.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Liste As String

On Error Resume Next

    If Target = Range("B1") Then

        Application.EnableEvents = False

        Select Case Range("B1").Value

        Case "Légume"

            Liste = "Carotte,Tomate,Asperge"

        Case "Fruit"

            Liste = "Pomme,Fraises,Pêche,Abricots"

        End Select

        Range("Sélection").Validation.Modify Formula1:=Liste

        Range("Sélection").ClearContents

        Application.EnableEvents = True

    End If

End Sub

Remarque 1 – Notez, dans les chaînes de validation, l’utilisation de la virgule au lieu du point-virgule : en effet, le VBA est en anglais, langue dans laquelle c’est la virgule qui doit être utilisée à cet effet !

Remarque 2 – La cellule B2 porte le nom "Sélection", ce qui rend la macro stable même si la position de cette cellule est modifiée par la suite...

Remarque 3 – La solution proposée dans cet article fonctionne très bien mais présente deux inconvénients, la rigidité du code et la limitation à deux niveaux.

La rigidité du code tient à ce que les options sont inscrites dans le code VBA : il faut donc modifier le code si l’on désire renommer les options ou modifier leur nombre. Ce n’est pas très flexible, et tout le monde ne maîtrise pas le VBA…

Cette macro fonctionne pour une liste à deux niveaux. Cela deviendrait bien plus délicat avec une liste déroulante à trois niveaux.

Nous résoudrons ces problèmes dans des articles ultérieurs.