Discussion :

[Zepechennio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[philo6]

bonjour
test cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Pierre49]

Bonjour,

Attention

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Lg As String

N’est pas Bon String c'est texte

Test ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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