Formulaire de saisis

jonat57 · 28 Avril 2011

Bonjour,

J'ai une erreur sur mon VBA dont je n'arrive pas à mettre le doigt dessus. Je pense que cela provient d'une erreur de d'orthographe au niveau du code de l'UserForm mais après maintes relectures je ne trouve pas.

Merci de m'indiquer où se trouve le ou les erreurs.

Bonne journée

pierrejean · 28 Avril 2011

Re : Formulaire de saisis

bonjour jonat57

Me.Prénom et non Me.Prenom

Papou-net · 28 Avril 2011

Re : Formulaire de saisis

Bonjour jonat57,

Voici ton code corrigé :

Code:

Private Sub b_validation_Click()
   '--- Positionnement dans la base
   [A65000].End(xlUp).Offset(1, 0).Select
   '--- Transfert Formulaire dans BD
   ActiveCell.Value = Application.Proper(Nom)
   ActiveCell.Offset(0, 1).Value = Prénom
   ActiveCell.Offset(0, 2).Value = Ville
End Sub

J'ai supprimé les "Me." devant les noms des TextBox et j'ai remplacé le "e" par un "é" dans Prénom pour correspondre au nom du TextBox (attention à l'utilisation des accents dans les noms d'objets et de variables : à éviter de préférence)

Par ailleurs, j'ai supprimé TextBox1 qui n'a apparemment aucune utilité, si ce n'est d'embrouiller le formulaire.

Espérant avoir répondu.

Cordialement.

Edit : Bonjour pierrejean

jonat57 · 28 Avril 2011

Re : Formulaire de saisis

En effet, une étourderie de ma part.

Merci à vous.

Une autre petite question, si je souhaite rajouter les données du formulaire sur la feuille suivante et non la feuille où se trouve le formulaire, que dois-je rajouter sur mon code ?

Formulaire de saisis

jonat57

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

jonat57

Guest

Discussions similaires

Formulaire de saisis

jonat57

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

jonat57

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency