Bonjour,
Vous excuserez mon niveau en VBA extrêment faible. (Je ne connais rien!!)
Je souhaite créer une base de donnée à trois colonnes. Pour cela je souhaiterais saisir mes données non pas directement dans excel mais dans un userform.
J'ai créé un userform où j'ai positionné deux boutons et trois zones de textes
Puis j'ai essayé d'utiliser le code suivant mais ca ne marche pas. Quelqu'un peut il m'aider??
Feuille userform
Private Sub CommandButton1_Click()
Dim LastRow As Range
Dim response As Integer
Set LastRow = Sheet1.Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
MsgBox "Données enregistrées"
response = MsgBox("Saisies d'autres informations?", _
vbYesNo)
If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
Else
Unload Me
End If
End Sub
________
Private Sub CommandButton2_Click()
End
End Sub
_______
Module1
Private Sub UserForm_Click()
End Sub
