userform probléme

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de dialogue
qui permettent à utilisateur de saisir des données et quand j'appui sur mon
bouton aucune boite de dialogue n'apparait.une boite s'ouvre et m'indique un
erreur '438' et au débogage mon code .Titre.Text = "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

*Bonjour erm1*,
Ca fait un moment que je cherche, mais j'ai fini par touve !
Il y a confucius dans les noms, ton userform continu de s'appele
"Userform1", Saisieadresse c'est le nom du bouton de commande de ta
feuille "liste". Modifi ce qui est en gras

Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With *Userform1*
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
*Userform1*.Show
End Sub

Teste et dis nous

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de dialogue
qui permettent à utilisateur de saisir des données et quand j'appui sur mon
bouton aucune boite de dialogue n'apparait.une boite s'ouvre et m'indique un
erreur '438' et au débogage mon code .Titre.Text = "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/

rebonjour j'ai verifié toujours pareil j'ai essayer de changer de nom à la
place de Titre mais rien ni fait
si vous savez ou est le probléme
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4367b4f6$0$17225$8fcfb975@news.wanadoo.fr...

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code .Titre.Text
= "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

Comme ca , je manque d'éléments. Essaie la proposition de Jean-Luc et
sinon publie ton classeur sur cjoint et donne le lien.

A+

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code
.Titre.Text = "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

voici le lien avec le programme http://erm2.free.fr/
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4367cd28$0$17225$8fcfb975@news.wanadoo.fr...

Comme ca , je manque d'éléments. Essaie la proposition de Jean-Luc et
sinon publie ton classeur sur cjoint et donne le lien.

A+

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code
.Titre.Text = "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

comme te l'a fait rmarquer Jean-Luc , il y a d'abord un problème de noms
qui se mélangent. Donc, renomme le UF SAISIEADRESSE en SAISIEADRESSE1 et
remplace la proc dans le module de feuille listes par celle ci-dessous
(tu verras, j'ai fait des modifs par rapport à l'initial car certaines
désignations de controles étaient erronnées) . Parallèlement , dans le
module du userform remplace toutes les SAISIEADRESSE par SAISIEADRESSE1

Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With SAISIEADRESSE1
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.code.Text = ""
.Ville.Text = ""
.OptionButton1.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
SAISIEADRESSE1.Show
End Sub

A+

voici le lien avec le programme http://erm2.free.fr/
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4367cd28$0$17225$8fcfb975@news.wanadoo.fr...

Comme ca , je manque d'éléments. Essaie la proposition de Jean-Luc et
sinon publie ton classeur sur cjoint et donne le lien.

A+

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code
.Titre.Text = "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

*Bonjour anonymousA*,
Je poste apres toi, il n'a peut etre pas eu mon message

Bonjour erm1,
Ca fait un moment que je cherche, mais j'ai fini par touve !
Il y a confucius dans les noms, ton userform continu de s'appele
"Userform1", Saisieadresse c'est le nom du bouton de commande de ta
feuille "liste". Modifi ce qui est en gras

Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Userform1
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Userform1.Show
End Sub

Teste et dis nous

comme te l'a fait rmarquer Jean-Luc , il y a d'abord un problème de noms qui
se mélangent. Donc, renomme le UF SAISIEADRESSE en SAISIEADRESSE1 et remplace
la proc dans le module de feuille listes par celle ci-dessous (tu verras,
j'ai fait des modifs par rapport à l'initial car certaines désignations de
controles étaient erronnées) . Parallèlement , dans le module du userform
remplace toutes les SAISIEADRESSE par SAISIEADRESSE1

Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With SAISIEADRESSE1
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.code.Text = ""
.Ville.Text = ""
.OptionButton1.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
SAISIEADRESSE1.Show
End Sub

A+

voici le lien avec le programme http://erm2.free.fr/
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4367cd28$0$17225$8fcfb975@news.wanadoo.fr...

Comme ca , je manque d'éléments. Essaie la proposition de Jean-Luc et sinon
publie ton classeur sur cjoint et donne le lien.

A+

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code .Titre.Text
= "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

*Bonjour erm1*,
J'ai modifie le classeur, regarde et dis nous :
http://cjoint.com/?lbxujBqBqS

voici le lien avec le programme http://erm2.free.fr/
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4367cd28$0$17225$8fcfb975@news.wanadoo.fr...

Comme ca , je manque d'éléments. Essaie la proposition de Jean-Luc et sinon
publie ton classeur sur cjoint et donne le lien.

A+

Etonnant. Tu es sur d'avoir bien orthographié le nom du combobox (Titre)
dans ton userform ?

A+

bonjour j'ai essayer le programme qui figure ici
http://www.excel-online.net/userform.html concernant les boites de
dialogue qui permettent à utilisateur de saisir des données et quand
j'appui sur mon bouton aucune boite de dialogue n'apparait.une boite
s'ouvre et m'indique un erreur '438' et au débogage mon code .Titre.Text
= "" apparait en jaune
pouvez vous m'aider à résoudre se problème
merci de votre aide


Private Sub Saisieadresse_Click()
'Ouvrir le formulaire de saisie
Worksheets("liste").Rows(2).Select
Selection.Insert
With Saisieadresse
.Titre.Text = ""
.Nom.Text = ""
.Prenom.Text = ""
.Rue.Text = ""
.CP.Text = ""
.Ville.Text = ""
.Sexe.Value = False
.Age.Text = ""
.Cours.Text = ""
End With
Range("G2") = False
Saisieadresse.Show
End Sub

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS