Dernière ligne d'un tableau

[babas]

Bonjour tous,

Encore un problème que je ne parviens pas à régler..

Un classeur excel avec plusieurs feuilles.
Sur certaines de ces feuilles des tableau (un vrai tableau : "mettre sous forme de tableau")

J'ai pour chacun de ces tableau un userform qui doit les alimenter en fonction des réponses.

J'ai ce code ci :

Private Sub CommandButton1_Click()
Lign = Sheets("Base").Range("A50000").End(xlUp).Row + 1

Sheets("Base").Cells(Lign, 1).Value = lab_cpt
Sheets("Base").Cells(Lign, 2).Value = TextBox1.Text
Sheets("Base").Cells(Lign, 3).Value = TextBox2.Text
Sheets("Base").Cells(Lign, 4).Value = TextBox3.Text
Sheets("Base").Cells(Lign, 5).Value = TextBox4.Text
Sheets("Base").Cells(Lign, 6).Value = TextBox5.Text

Unload Me
End Sub

Le problème, c'est que ça n'ajoute pas mes valeurs dans le tableau mais dans la ligne se situant sous le tableau...

Ma question, vous l'aurez compris, comment faire pour que les valeurs saisies dans les USF soient envoyées DANS le tableau...

Merci d'avance

 

[NezQuiCoule]

Re : Dernière ligne d'un tableau

Private Sub CommandButton1_Click()
Lign = Sheets("Base").Range("A50000").End(xlUp).Row + 1

Sheets("Base").Cells(Lign, 1).Value = lab_cpt
Sheets("Base").Cells(Lign, 2).Value = TextBox1.Text
Sheets("Base").Cells(Lign, 3).Value = TextBox2.Text
Sheets("Base").Cells(Lign, 4).Value = TextBox3.Text
Sheets("Base").Cells(Lign, 5).Value = TextBox4.Text
Sheets("Base").Cells(Lign, 6).Value = TextBox5.Text

Unload Me
End Sub

Bonjour,

Je pense que le + 1 est en trop, et c'est ce qui fait que les valeurs sont en dessous du tableau et pas dedans.

Bonne soirée