Incrimenter une ligne avec un bouton dans userform

[ketum]

Bonjour à tous,

Je voudrais, dans un userform, avoir une textbox et un bouton (voir fichier joint), lorsque on écrit dans ma textbox et qu'on valide cela s'ecrive dans la céllule a1.
si on ecrit de nouveau dans ma textbox et qu'on revalide je veu que cela s'ecrive dans la céllule a2.

Donc on incrémente le numero de la ligne.

J'ai écrit ça :

Private Sub CommandButton1_Click()
Dim i As Integer
i = i + 1
Range("a" & i).Value = Controls("textbox1")
End Sub


mais ça ne marche pas cela s'ecrit toujours dans la case a1

si qqun peut m'aider ça serait sympa

merci d'avance

 

[Guest]

Re : Incrimenter une ligne avec un bouton dans userform

Bonjour Ketum,

Tu peux mettre:

Range("a65536").end(Xlup).offset(1)=TextBox1.text

Ce qui ecrira dans la première cellule vide de la colonne A

 

[ketum]

Re : Incrimenter une ligne avec un bouton dans userform

Merci Hasco, ça marche

C sympa