[EXCEL] Saisie dans userform

Résolu/Fermé
Alessia74 - 8 oct. 2008 à 12:27
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 8 oct. 2008 à 14:04
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
A voir également:

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 oct. 2008 à 12:36
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)
0
Super Merci!!
C'est excatement ça!! J'avais oublié le S et les parenthèses.

Embrasse Zébullon de ma part!!
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 oct. 2008 à 14:04
De rien, merci pour lui mais il a rien fait sur ce coup :o|

;o)
0