ListeModifiable – Bipbipcoyote 2000

Les listes déroulantes

Exposé : Réaliser une liste déroulante, à partir d'une liste incluse dans le fichier (elle peut se trouver dans une autre feuille, c'est même préférable...surtout si elle est masquée,cela empêchera l’altération des valeurs) et déterminer le comportement lors des changements de valeur de la liste déroulante....On crée donc une mise en page comme suit :

Il nous faut maintenant éditer les propriétés de cette liste déroulante, par un clic droit. Une nouvelle fenêtre apparaît contenant tous les paramètres modifiables de cette liste déroulante (ComboBox, en langage informatique)

La propriété qui va particulièrement nous intéresser est ListFillRange où nous allons inscrire les références de la plage de données qui constituera les items de notre liste déroulante, si on avait placé cette liste sur la deuxième feuille, nous aurions des références
de type Feuil2!F3:F5. Ici pour des raisons de clarté, j'ai tout placé sur la même feuille

Voici ce que cela donne :
On peut aussi la remplir avec VBA

Private Sub ComboBox2_DropButtonClick()
    ComboBox2.Clear
    Plage = ActiveSheet.UsedRange.Columns(6)
    For Each cell In Plage
        ComboBox2.AddItem cell
    Next
End Sub

Il faut maintenant déterminer ce que les changements de valeur dans la liste déroulante provoqueront. On passe dans le VBE (Visual Basic Editor) par un clic droit sur la ComboBox en mode construction et l'on clique sur "Visualiser le code". On détermine le comportement en programmant. Ce qui donne ceci :

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Pommes" Then
    Range("A1").Value = "Hello World!"
Else
    Range("A1").Value = "Fini de rire"
End If
End Sub

Et voilà, c'est terminé...Faisons quelques essais pour vérifier si tout se passe bien

On peut aussi travailler avec une liste dont on ne connait pas la longueur.Nous la nommerons "Plage". Pour cela, nous devrons remplir dynamiquement les items de la ComboBox au moment où nous enfoncerons la flèche déroulante et déterminer ensuite ce que l'on souhaite faire avec le contenu ainsi récupéré. Ici nous allons recopier cette saisie dans la cellule A2. Nous prenons soin de recopier l'ancien contenu de la cellule dans une variable appelée Temp car si nous annulons notre action, nous pourrions perdre cette donnée

Private Sub ComboBox2_Change()
    temp = [A2]
'Pour conserver le contenu de la cell A2 si l'on
'décide de ne pas opérer de changement sinon
'le contenu de A2 est perdu irrémédiablement
    If ComboBox2 = "" Then
        [A2] = temp
        Exit Sub
    Else
'ici on place la nouvelle valeur dans A2
        [A2] = ComboBox2.Value
    End If
End Sub

Troisième cas : Nous allons saisir des liens hypertextes et ainsi provoquer l'ouverture du navigateur internet et afficher les pages web

Private Sub ComboBox3_Change()
    ActiveWorkbook.FollowHyperlink Address:=ComboBox3.Text, NewWindow:=True
End Sub

Quatrième cas : On peut aussi se déplacer dans le fichier

Private Sub ComboBox4_Change()
If ComboBox4.Text = "Aller sur 2" Then
    Sheets("Feuil2").Select
ElseIf ComboBox4.Text = "Aller sur 3" Then
    Sheets("Feuil3").Select
End If
End Sub

Télécharger le fichier exemple ListeDeroulante

Les listes déroulantes

FIN

Avertissement