Discussion :

[pierrotlx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

--

[plegat]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore mieux

Code pierrotlx :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

et ce code:

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..)

[pierrotlx]

j'ai un message erreur d'execution 424

[pierrotlx]

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

[SfJ5Rpw8]

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

[pierrotlx]

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

[SfJ5Rpw8]

i=1 doit marché

bon essai de préciser la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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