Textbox multiligne et range

[Temjeh]

Bonjour et merci

Je cherche à mettre chaque ligne d'un Textbox en range

Ligne 1 = range("A1")
Ligne 2 = range("B1")
Ligne 3 = range("C1")

Merci

Temjeh

 

[youky(BJ)]

Re : Textbox multiligne et range

Bonjour
voici un exemple de code avec un textbox en feuil1 et un bouton
Bruno

Private Sub CommandButton1_Click()
On Error Resume Next
For k = 1 To 50
Cells(k, 1) = Split(Feuil1.TextBox1.Text, Chr(10))(k - 1)
If Err > 0 Then Err.Clear: Exit For
Next
End Sub

J'ai modifié la ligne IF Err......

 

[Temjeh]

Re : Textbox multiligne et range

Merci beaucoup

En userform j'ai donc enlevé le Feuil1

Merci

Temjeh