Bonsoir à tous
je cherche à afficher le contenue récupérer de cette listbox multichoix dans une textbox.
Quelqu un serais la compléter ?
Private Sub BoutonSelectionner_Click()
Dim Ctri As Long
Dim ContenuSelectionne As String
ContenuSelectionne = ""
If ListBox32.ListCount > 0 Then
For Ctri = 0 To ListBox32.ListCount - 1
If ListBox32.Selected(Ctri) = True Then
ContenuSelectionne = ContenuSelectionne & ListBox32.List(Ctri) & Chr(10)
End If
Next Ctri
End If
If ContenuSelectionne <> "" Then
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
End Sub
Merci à vous .