Remplir une zone de liste élément par élément avec le contrôle ListBox ou zone de liste dans un formulaire personnalisé Userform, Excel VBA

Le contrôle ListBox ou zone de liste  est utilisé pour stocker une liste de valeurs. Dans la zone de liste, l’utilisateur peut sélectionner une ou plusieurs valeurs.

Remplir une zone de liste élément par élément
La zone de liste est remplie élément par élément par la méthode AddItem. Par exemple, créons un projet simple, qui contient un formulaire de liste comme le montre la figure suivante.

Figure: Zone de liste simple

La liste contient les noms des villes du Cameroun. La sélection d’un élément dans la zone de liste ne mène à rien, tandis qu’un double-clic sur un élément de la zone de liste l’affiche dans la cellule libre suivante de la première colonne de la feuille de calcul active.

Private Sub UserForm_Initialize()

   ListBox1.AddItem "Douala"

   ListBox1.AddItem "Bafoussan"

   ListBox1.AddItem "Edéa"

   ListBox1.AddItem "Maroua"

   ListBox1.AddItem "Kumba"

   ListBox1.AddItem "Bertoua"

   ListBox1.AddItem "Eséka"

   ListBox1.AddItem "Limbé"

  ListBox1.AddItem "Yaoundé"

  ListBox1.AddItem "Mbouda"

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

   Dim n As Long

   n = Application.WorksheetFunction.CountA(Columns(1))

   Cells(n + 1, 1).Value = ListBox1.Text

End Sub

 

Commentaires

■ La valeur sélectionnée dans la liste est renvoyée par la propriété Text.

■ Le nombre de cellules de colonne remplies est renvoyé par la propriété CountA de WorksheetFunction.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x