Copie textbox dans cellules successives

Bonjour à tous,
Comme le précise le titre j'ai besoin d'aide pour une chose simple pour certain mais pas facile pour d'autre ( moi même ).
Voulant crée un projet seul j'ai chercher des heures durant sur internet sans trouver la réponse a ce que je cherche , malgré tout les sujet qui existe aucun n'a pu m'aider .

voila ma demande suivis du code que j'ai fais :

j'ai crée un userform , dans cette userform il y a une textbox + un bouton valider (commandbutton)

je souhaite que quand je valide ca marque dans une certaine feuil puis la case A1 ( par exemple)

pour le moment aucun soucis tout fonctionne, Mais ! c,'est la que je bloque , je souhaite qu'a ma prochaine saisie ca va en A2 automatiquement et ainsi de suite ( je crois que j'ai pu voir que ca va a la case vide en priorité , cela me convien du moment que je n’écrase pas mes donnés .

voila le code que j'ai mis actuellement et qui fonctionne mais juste pour une case .

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click()   Range ("A1" & Ligne) Me.Try   Unload Me   End Sub

---

dans ce code le TRY = ma textbox que j'ai renomer
et unload me pour fermer la fenetre
j'ai rajouter "& Ligne" car je pensais que ca fonctionnerais mais non !!

voila si vous pouviez m'aider svp ca serais super !!


merci !

Bonjour !

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Cells(Rows.Count, 1).End(xlUp)(2).Value = Try.Text Unload Me End Sub

---

_________________________________________________________________________________________________________

:fleche: Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Bonour Marc-L , merci pour ton code

je vien de l'essayer et ="debogage" la ligne se jaunie donc une erreur je présume.

ca ne fonctionne pas :(

je pense que je ne dois pas faire un truc bien car ton code je l'avais essayer déjà mais pas écrit pareille .

rectification ton code marche parfaitement ( j'avais mal taper rows ^^

ca ecrit a partir de la ligne 100 ( y aurait-il possibilité d'ecrire a partir de la ligne 2 ?


merci :)

re rectification .

ca marche parfaitement

un grand merci a toi marc-L

Au lieu de faire un UserForm, à ta place j'aurai utilisé une simple InputBox.
https://msdn.microsoft.com/fr-fr/lib.../gg251811.aspx

Code:

---

1 2 3

Sub Test() Cells(Rows.Count, 1).End(xlUp)(2).Value = InputBox("Taper votre valeur") End Sub

---