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
 

Discussions similaires

Réponses
8
Affichages
362

Statistiques des forums

Discussions
311 709
Messages
2 081 774
Membres
101 816
dernier inscrit
Jfrcs