[EXCEL] Saisie dans userform
Résolu
Alessia74
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- [EXCEL] Saisie dans userform
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
3 réponses
Bonjour,
Peux-tu nous dire où se situe le problème ? As-tu un message d'erreur ?
J'ai relevé ça dans ton code :
Set LastRow = Sheet1.Range("a65536").End(xlUp)
Je pense que tu as oublié les parenthèses
Set LastRow = Sheets(1).Range("a65536").End(xlUp)
;o)
Peux-tu nous dire où se situe le problème ? As-tu un message d'erreur ?
J'ai relevé ça dans ton code :
Set LastRow = Sheet1.Range("a65536").End(xlUp)
Je pense que tu as oublié les parenthèses
Set LastRow = Sheets(1).Range("a65536").End(xlUp)
;o)