Text box dans userform

[TonTonCarton]

bonjour a tous 🙂

J'ai creer un Textbox dans un userform et j'arrive a affecter son contenu dans une cellule mais comment faire pour que son contenu se mette a la suite de mon tableau et pas tjrs ds la meme cellule

 

[CHti160]

Salut"TonTonCarton"
bonjour le "FORUM"

un exemple de ce qui peut se faire

Dim L As Integer
'L = Worksheets("Feuil1").Range("A1").End(xlUp).Row 'détermine la dernière ligne occupée de la colonne A ici
L = Worksheets("Feuil1").Range("A1").End(xlUp).Row + 1 'te donne donc la premiere ligne Vide
Worksheets("Feuil1").Range("A" & L) = texbox1.Value 'te mets la valeur dans la premiere ligne vide et ainsi de suite
A+++
Jean Marie

 

[TonTonCarton]

voila ce que j'ai mis our le bouton valider

[A1] = UserForm1.TextBox1


mais je n'ai pas compris par koi il fallait que je remplace cette ligne pour mettre la nouvelle valeur a la suite ?desolé je suis debutant

 

[TonTonCarton]

voila ce que j'ai mis our le bouton valider

[A1] = UserForm1.TextBox1


mais je n'ai pas compris par koi il fallait que je remplace cette ligne pour mettre la nouvelle valeur a la suite ?desolé je suis debutant

 

[TonTonCarton]

renvoyer valeur textbox dans tableau

heu je crois que j'ai pas bien compris ....

en faites dans l'userbox , j ai un textbox , la valeur de celui ci est renvoyer a une cellule grace au bouton valider

Private Sub CommandButton1_Click()

[a1] = UserForm1.TextBox1
[b1] = UserForm1.TextBox2

end sub

comment je dois ericre le code pour que la valeur de textbox1 que vais entrer n'aille pas que en A1 mais a la suite si A1 et deja pris??

merci encore 🙂

 

[Michel_M]

bonjour tonton & Jean-Marie

Jean-Marie,

dans la ligne:
L = Worksheets("Feuil1").Range("A1").End(xlUp).Row + 1
ne vaudrait-il pas mieux mettre
L = Range("A65536").End(xlUp).Row + 1

nota: worksheet est implicite puisqu'on est dans un module feuille



On aurait donc pour tonton le listing

option explicit

Private Sub CommandButton1_Click()
dim L as long
L = Range("A65536").End(xlUp).Row + 1
Range("A" & L) = texbox1.Value

end sub

Amicalement

Michel

 

[CHti160]

Salut "Michel_M"
Effectivement Erreur de frappe
excuses
merci pour la correction
A+++
Jean Marie

 

[TonTonCarton]

merci beaucoup 🙂 michel et jean marie 🙂 vous etes des chefs 🙂