ListBox "MultiSelect"
ou comment récuperer plusieurs éléments d'une Listbox ?
 Les données
Dans la feuille 1, crée ce tableau
Création de l'userform
1- Crée un userform
2- Place un ListBox(Zone de liste)
3- et un CommandButton(Bouton de commande)
Les propriétés de la ListBox
Dans la liste des propriétés=> Données
1- RowSource: A1:A10 (le tableau)
=>Comportement
2- MultiSelect: 1 - fmMultiSelectMulti
Maintenant il est possible de sélectionner plusieurs éléments de la liste:
Comment récupérer ces éléments dans une colonne (B par exemple)?
Double clique sur le CommandButton1 et écrit cette macro.
Private Sub CommandButton1_Click()
Dim I As Integer, y As Integer
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
Range("b" & y).Value = .List(I)
End If
Next I
End With
End Sub
et pour récupérer les éléments dans une seule cellule:
Remplace cette ligne : Range("b" & y).Value = .List(I)
par celle là:
[C1] = [C1] & " " & .List(I)
  lBxmulti.zip  13 ko Télécharge l'exemple
[top]
|
