Adresse cellule variable

Bonjour à tous,
lorsque j'utilise la fonction textbox, je voudrais renvoyer la valeur inscrite dans une cellule et saisir une nouvelle valeur qui va s'inscrire dans la cellule dessous et ainsi de suite.Mais je n'arrive pas a faire prendre à une adresse de cellule une variable pour pouvoir l'incrementer:par exemple

Code:

---

1 2 3 4

Private Sub TextBox1_Change() i = 1 Range("a" & "i") = UserForm1.TextBox1 End Sub

---

Quelqu'un peut m'aider?



[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton http://www.developpez.net/forums/images/editor/code.gif

--

Salut,

Code:

---

1 2	Range("a" & i).value = UserForm1.TextBox1

---

ou encore mieux

Code:

---

1 2	Cells(i,1).value = UserForm1.TextBox1

---

et ce code:

Citation:

---

Envoyé par pierrotlx

...

Code:

---

1 2 3 4

Private Sub TextBox1_Change() i = 1 Range("a" & "i") = UserForm1.TextBox1 End Sub

---

...

---

quel probléme provoque t'il ?.. message d'erreur...? si tu utilise Range.. sans rien devant celui-ci porte sur la feuille active (il faut donc obligatoirement une feuille de calcul active..)
;)

j'ai un message erreur d'execution 424

je precise que i est déstiné a etre une variable du style i=i+1

:oops: enléve les " autour du i j'avais pas vu ... !

j'ai l'impression qu'il ne me prend pas la valeur du i: i=1 ne doit pas marcher

i=1 doit marché :mouarf:

bon essai de préciser la feuille :

Code:

---

1 2 3 4 5

private Sub TextBox1_Change() i = 1 sheets("Feuil1").Range("a" & i) = UserForm1.TextBox1 End Sub

---

Ca marche.Effectivement je travaille sur plusieurs feuilles...Merci pour votre patience et votre aide precieuse.