Discussion :

[Marc31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

J'ai testé mais j'ai pas réussi à le faire marcher.
Merci quand même d'avoir pris le temps de chercher.

[jfontaine]

Ou bloques tu?

[Marc31]

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)....

[jfontaine]

Et comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc31]

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