Inserer plusieur valeurs dans une cellule par une listebox...

Le
Domi
Bonsoir à tous,
A partir d'une liste de choix sur un userform, est-il possible de
sélectionner plusieurs valeurs dans la liste proposée et insérer ces valeurs
dans une cellule après validation ?
Les valeurs seraient séparées par un tiret ou autre
Si cela est possible savez-vous où je pourrais trouver un exemple à
télécharger.
Merci
Domi
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5014671
Choix multiples dans une liste
Bonsoir,

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "A2:A" & [A65000].End(xlUp).Row
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub b_ok_Click()
temp = ""
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
temp = temp & Me.ListBox1.List(i) & " "
End If
Next
[C1] = temp
End Sub

http://cjoint.com/?kDuwjLDxwX

JB
http://boisgontierjacques.free.fr

On 29 oct, 20:01, "Domi"
Bonsoir à tous,
A partir d'une liste de choix sur un userform, est-il possible de
sélectionner plusieurs valeurs dans la liste proposée et insérer ce s valeurs
dans une cellule après validation ?
Les valeurs seraient séparées par un tiret ou autre...
Si cela est possible savez-vous où je pourrais trouver un exemple à
télécharger.
Merci
Domi


Domi
Le #5014651
Impec, voila une bonne base pour démarrer.
Merci ;o)
Domi

"JB"


Choix multiples dans une liste
Bonsoir,

Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "A2:A" & [A65000].End(xlUp).Row
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub b_ok_Click()
temp = ""
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
temp = temp & Me.ListBox1.List(i) & " "
End If
Next
[C1] = temp
End Sub

http://cjoint.com/?kDuwjLDxwX

JB
http://boisgontierjacques.free.fr

On 29 oct, 20:01, "Domi"
Bonsoir à tous,
A partir d'une liste de choix sur un userform, est-il possible de
sélectionner plusieurs valeurs dans la liste proposée et insérer ces
valeurs
dans une cellule après validation ?
Les valeurs seraient séparées par un tiret ou autre...
Si cela est possible savez-vous où je pourrais trouver un exemple à
télécharger.
Merci
Domi


Publicité
Poster une réponse
Anonyme