Inserer plusieur valeurs dans une cellule par une listebox...
2 réponses
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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" <scra...@free.fr> wrote:
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
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
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
Impec, voila une bonne base pour démarrer. Merci ;o) Domi
"JB" a écrit dans le message de news:
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
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
Impec, voila une bonne base pour démarrer.
Merci ;o)
Domi
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1193685730.786111.267240@50g2000hsm.googlegroups.com...
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" <scra...@free.fr> wrote:
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
Impec, voila une bonne base pour démarrer. Merci ;o) Domi
"JB" a écrit dans le message de news:
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
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