liste de validation

[arnaud]

je voudrais mettre dans une liste de validation dans ma feuill Excel, des données provenant d'une textbox multiligne, mais toutes mes données sont mises sur une seule ligne dans la liste!
comment peut-on faire ?

merci

 

[STéphane]

bonjour

essaye cela

Sub test_textbox_multi_line()

Dim Texte As String, Ligne As String
Dim I As Integer, J As Integer, K As Integer
Texte = Feuil1.TextBox1
Do
I = J + 1
J = InStr(I, Texte, vbCr)
Ligne = Mid$(Texte, I, IIf(J, J - I, Len(Texte) - I + 1))
K = K + 1
Cells(K, 1).Value = Ligne
Loop While J
End Sub