Bonjour,
Dans une Listbox, j'ai une liste de données que j'aimerais intégrer à mon classeur à la validation de mon formulaire. Les données sont ajoutées via une textbox se trouvant sur un formulaire.
J'aimerais que toutes les données soient ajoutées sans que l'utilisateur ait besoin de les sélectionner. De plus, ces données doivent s'ajouter les unes à la suite des autres.
J'ai réussi à créer ce code qui permet d'ajouter toutes les données de ma Listbox dans une seule cellule. Par contre, je n'arrive pas à créer une boucle pour que chaque item soit ajouté l'un à la suite de l'autre ..
Private Sub Submit_Click() 'Validation du formulaire
Dim L As Integer
Dim i As Variant
date_test = Now()
L = Feuil1.Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
'
For i = 0 To Me.ListBox1.ListCount - 1
If temp <> "" Then temp = temp & " / " & Me.ListBox1.List(i) Else temp = Me.ListBox1.List(i)
Next i
Range("C" & L).Value = temp
'
Unload Me
'
End Sub
J'aimerais que la boucle ajoute mes données dans une colonne C comme indiqué via ce code :
Range("C" & L).Value = temp
Merci d'avance pour votre aide
Baptiste.