liste de validation

  • Initiateur de la discussion arnaud
  • Date de début
A

arnaud

Guest
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
 
S

STéphane

Guest
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