Bonjour à toutes et à tous,
je me casse les dents depuis plusieurs jours sur quelque chose qui parait évident : transférer toutes les lignes d'un ListBox dans une seule cellule.
Ceci fonctionne, mais ne me copie qu'une seule ligne :
Private Sub CmdENREGISTRER_Click()
Dim I As Long
For I = 0 To Me.ListBox1.ListCount - 1
Sheets("BASE").Range("A2").Value = Me.ListBox1.List(I)
Next I
End Sub
J'ai essayé avec fmMultiSelectMulti, ou fmMultiSelectExtended, mais c'est toujours le même résultat.
J'ai aussi essayé avec :
With ListBox1
Sheets("BASE").Range("A2").Value = .List
End With
Et toutes sortes de combinaisons, mais rien n'y fait.
Merci d'avance à celui ou celle qui pourra m'apporter la solution.
Cordialement
Pedro89