textBox Multiligne

[Coppens]

J'aimerais recopier chaque ligne d'un textbox, se trouvant sur un userform, dans des cellules différentes d'une feuille.
merci de m'aider

 

[@+Thierry]

Salut Coppens,

Tiens ton Post est resté sans réponse après + de 24 heures ... A mon avis il y manque deux petits trucs...

1) Ni un Bonjour, Ni un Au revoir (tu sais, dans les forums ont est pas des machines, mais des gens...
2) Explication vraiment trop succinte... Des Cellules Différentes ??? n'importe où sur la feuille ? (lol)

Bon enfin pour t'aider, puisque tu duis quand même "merci de m'aider"...

Admettons que tu veuilles reporter ce que tu viens de saisir dans une TextBox d'un UserForm... en colonne ligne par ligne, à la suite des entrées successives...

A mettre dans le private module de ton UserForm où tu as créé :
Une TextBox nommée TextBox1
Un CommandButton nommée CommandButton1
Il te faut aussi une feuille nommée "Feuil1"...

Private Sub CommandButton1_Click()
Ligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil1").Range("A" & Ligne).Value = TextBox1
TextBox1 = ""
TextBox1.SetFocus
End Sub

Ce n'est qu'un départ...Il n'y a pas de controle de vérification etc... C'est juste pour te faire comprendre...

Bon travail et bon Week End
@+Thierry