Je cherche à retourner dans une seule cellule tous les items d'une listbox (pas uniquement la sélection mais toute la liste) et que chaque item soit séparé par une virgule.
Par exemple si le contenu de ma listbox est :
Projet 1
Projet 2
Projet 3
Projet 4
Le contenu de ma cellule serait :
Projet 1,Projet 2,Projet 3,Projet 4
Re : Report de tous les items d'un listbox dans une cellule mais séparé par une virgu
Option Explicit
Dim x As String
Dim y As String
Const G As String = "Feuil1"
Const F As String = "Feuil2"
.
.
.
.
Sheets(G).Select
Worksheets(G).Range("B65536").Select
Selection.End(xlUp).Select
x = ActiveCell.Row
Sheets(G).Cells(x + 1, 2).Value = TextBox1.Value 'fontionne
Sheets(G).Cells(x + 1, 3).Value = TextBox2.Value 'fonctionne
Sheets(G).Cells(x + 1, 5).Value = Join(Application.Transpose(ListBox5.List), ",") 'ne fonctionne pas
.
.
.
'supprime donnée lors d'un double click
Private Sub Listbox5_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
'Remarque:
'La propriété RowSource n'accepte pas cette méthode
ListBox5.RemoveItem (ListBox5.ListIndex)
End Sub
'transfert donnée d'une liste à une autre
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox5.AddItem ListBox1.List(ListBox1.ListIndex)
End Sub
Private Sub UserForm_Initialize()
Dim M As Integer
M = Sheets(F).Range("B65536").End(xlUp).Row
'mise des données dans les combo...
With Me
With .ListBox1
.RowSource = F & "!B2:B" & M
.MatchEntry = fmMatchEntryFirstLetter
End With
End With