Envoyer le contenu d'une TextBox dans une cellule sans écraser le contenu précédant

Bonjour à tous,

Je dois réaliser un formulaire d'inscription en VBA.
Pour l'Userfrom chargé de l'inscription des utilisateurs, j'aimerai pouvoir envoyer le contenu de ma textbox nommé Loggin_Inscription dans la colonne A de ma feuille excel nommé Feuil1, lorsque je clique sur mon bouton validation nommé valid_inscription et le contenu de ma seconde textbox nommé PW_Inscription dans la colonne B.

(Autrement dit les personnes qui s’inscrivent doivent s'enregistrer les une à la suite des autres sans écraser la valeur de la dernière cellule enregistré)

Voici le code que j'ai écrit mais qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub valid_inscription_Click() 'inscription d'un nouvel utilisateur   IntLigne = ActiveSheet.Cells(2, 1).End(xlDown).Row + 1 Dim Lg As String 'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox nommé Loggin_Inscription Lg = Sheets("Feuil1").Cells(65536, 1).End(xlUp).Row + 1 'texte des cases Sheets("Feuil1").Cells(Lg, "A").Value = UserForm2.Loggin_Inscription.Value Sheets("Feuil1").Cells(Lg, "B").Value = UserForm2.PW_Inscription.Value     End Sub

---

En espérant être assez claire, Merci d'avance

bonjour
test cela:

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Sheets("Feuil2").Range("A4").Value = Sheets("Feuil2").Range("A4") & "; " & TextBox1.Value   End Sub

---

Bonjour,

Attention

Code:

---

Dim Lg As String

---

N’est pas Bon String c'est texte

Test ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub valid_inscription_Click() 'inscription d'un nouvel utilisateur     Dim Lg As Long 'La ligne dans laquelle sont ajoutées les valeurs est définie par la TextBox nommé Loggin_Inscription Lg = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1 'texte des cases Sheets("Feuil1").Cells(Lg, 1).Value = Me.Loggin_Inscription.Value Sheets("Feuil1").Cells(Lg, 2).Value = Me.PW_Inscription.Value     End Sub

---

Bon courage