VBA EXCEL - données multiples listbox
Résolu/Fermé
malbjp
Messages postés
54
Date d'inscription
vendredi 7 octobre 2005
Statut
Membre
Dernière intervention
4 janvier 2009
-
31 mai 2006 à 11:39
magi123 Messages postés 18 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 10 décembre 2007 - 22 nov. 2007 à 13:53
magi123 Messages postés 18 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 10 décembre 2007 - 22 nov. 2007 à 13:53
7 réponses
Armojax
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 528
31 mai 2006 à 20:57
31 mai 2006 à 20:57
Je t'ai fait un petit exemple. Un Form avec une ListBox et un bouton.
A l'initialize du Form (option MultiSelect), un met en place une liste d'items.
Après avoir choisi plusieurs éléments, en cliquant sur le bouton, on stocke la sélection dans les cellules de la colonne A de Feuil1.
A l'initialize du Form (option MultiSelect), un met en place une liste d'items.
Après avoir choisi plusieurs éléments, en cliquant sur le bouton, on stocke la sélection dans les cellules de la colonne A de Feuil1.
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.AddItem "tata"
ListBox1.AddItem "tete"
ListBox1.AddItem "titi"
ListBox1.AddItem "tintin"
ListBox1.AddItem "toto"
ListBox1.AddItem "toutou"
ListBox1.AddItem "tutu"
ListBox1.AddItem "tyty"
End Sub
Private Sub CommandButton1_Click()
Dim I As Integer, J As Integer
Sheets("Feuil1").Range("A1:A8").ClearContents
J = 0
For I = 0 To 7
If ListBox1.Selected(I) Then
J = J + 1
Sheets("Feuil1").Cells(J, 1).Value = ListBox1.List(I)
End If
Next
End Sub
Evidemment, on peut stocker aussi les valeurs dans un tableau plutôt que dans une feuille, etc. Ensuite on en fait ce qu'on veut...
