Listbox mutliselection avec validation

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous,

Je bosse sur une userform excel en vba.
J'ai réalisé une zone de texte et dessous une listbox mutliselection.
J'aimerais arriver à faire un choix multiple dans la listbox et lorsque je valide sur le bouton ok, l'ensemble des valeurs partent dans la textbox séparés par un ;.
Mais aussi que ça remplisse ma feuille de données "BDD".
Si quelqu'un pouvait m'aider, MERCI!

J'ai mis une representation en image de ce que je veux faire!

Voici un bout de code pour le bouton
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton3_Click() Dim I As Integer, J As Integer J = 0 For I = 0 To 7 If ListBox1.Selected(I) Then J = J + 1 Sheets("BDD").Cells(U, 1).Value = ListBox1.List(I) End If Next End Sub

Bonjour,

Ci dessous une exemple pour l'affichage dans la textbox (a adapter en remplacant la variable str par l'objet textbox)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
 
Dim Str As String
 
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        If Str <> "" Then Str = Str & ","
        Str = Str & ListBox1.List(i)
    End If
Next i
 
MsgBox Str

28/06/2012, 08h39
Marc31

list multi selection

J'ai testé mais j'ai pas réussi à le faire marcher.
Merci quand même d'avoir pris le temps de chercher.
28/06/2012, 08h59
jfontaine

Ou bloques tu?
28/06/2012, 09h42
Marc31

Listbox multiselection avec validation

Ben j'ai remplacé STR par Textbox21 est ça marche pas et je voulais aussi envoyer les données dans une feuille excel (sheet:BDD)....

Et comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
 
Dim Str As String
 
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        If Str <> "" Then Str = Str & ","
        Str = Str & ListBox1.List(i)
    End If
Next i
 
Textbox1.Text = Str

28/06/2012, 10h13
Marc31

listbox multiselection

Ahhhh oui ça marche encore MERCI parce que là j'étais un peu perdu!!!!!!!