OVH Cloud OVH Cloud

vba erreur 438 ??

1 réponse
Avatar
stessy
salut
je voudrais faire un formulaire vba sous excel XP mais j'ai une erreur dans
mon code et jen'arrive pas à la resoudre
Quelsu'un pourrait m'aider ? (j'ai reupérer ce code depuis un exercice sur
le web)
L'erreur est sur .Titre.Text =""

Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.sexe.Text = False
.Age.Text = ""
.Cours.Text = ""
End With

Merci de votre aide
a+
--
stessy

1 réponse

Avatar
michdenis
Bonjour Stressy,

Ton code pourrait être :

Saisieadresse = Propriété Name d'un formulaire

Tous les autres items dans la nomenclature semblent être des contrôles textbox. Afin que le code soit plus lisible pour son auteur,
il a rebaptisé chaque contrôle "Textbox" de façon plus conviviale en modifiant la propriété "Name" de chacun des contrôles.

Pour exécuter ce code, tu dois avoir un textbox dont le ton est "Titre" dans ton formulaire ...sinon l'erreur est provoquée car la
procédure ne trouve pas ledit contrôle. Et cela est vrai pour chaque élément de la liste.


Salutations!




"stessy" a écrit dans le message de news:
salut
je voudrais faire un formulaire vba sous excel XP mais j'ai une erreur dans
mon code et jen'arrive pas à la resoudre
Quelsu'un pourrait m'aider ? (j'ai reupérer ce code depuis un exercice sur
le web)
L'erreur est sur .Titre.Text =""

Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.sexe.Text = False
.Age.Text = ""
.Cours.Text = ""
End With

Merci de votre aide
a+
--
stessy