userform avec textbox

[kalipette]

salut à tous je suis entrain de faire un programme de gestion de mes contact.
j'ai un probleme pour entrer des donnees dans plusieurs ligne exemple colonne B: je voudrais ecrire des noms en B4,B5,B6 ect... avec un bouton valider.
mais le probleme ça ecrit seulement en B4 car quand je rentre un autre noms il remplace le nom existant en B4 avez vous une solution voiçi mon code excel:
Private Sub BOUTON_VALIDER_Click()
Range("B4") = UserForm1.TextBox1
Range("C4") = UserForm1.TextBox2
Range("D4") = UserForm1.TextBox3
Range("E4") = UserForm1.TextBox4
Range("F4") = UserForm1.TextBox5
Range("G4") = UserForm1.TextBox6
End Sub
voici le logiciel en question en pieces jointes.

 

[ledzepfred]

Re : userform avec textbox

bonsoir kalipette,

essayes ceci :

Private Sub BOUTON_VALIDER_Click()
Dim LIG As Integer
LIG = Range("B65536").End(xlUp).Row + 1
Range("B" & LIG) = TextBox1
Range("C" & LIG) = TextBox2
Range("D" & LIG) = TextBox3
Range("E" & LIG) = TextBox4
Range("F" & LIG) = TextBox5
Range("G" & LIG) = TextBox6
End Sub

on stocke dans la variable LIG le numéro de la première ligne vierge et on affecte les valeurs des textbox dans les colonnes B à G de cette ligne

on peut même faire plus court :

Private Sub BOUTON_VALIDER_Click()
Dim i, LIG As Integer
LIG = Range("B65536").End(xlUp).Row + 1
For i = 1 To 6
Cells(LIG, i + 1) = Me.Controls("TextBox" & i)
Next
End Sub

A+