Problème Bouton Fermer

[Jacky.25]

Bonjour à tous pour mes début j'ai commencé par faire un carnet d'adresse avec une fram avec deux boutons (Ajouter et Fermer) qui me permet d'ajouter un Nouveau contact et de fermer ma fram de saisie, mais si je vous contact c'est qu'il y a un mais quand je clic sur le bouton ajouter un message d'erreur me signal erreur 438 "Propriété ou méthode non gérée par cet objet" et j'ai regardé dans la bibliothèque je ne trouve pas Hide et Unload.
Je vous joint ce que j'ai pour que vous puissiez vire ce qui cloche.
Salutations Jacky un débutant

Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
'on activela feuille "Liste"
Worksheets("Liste").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If txtNom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
txtNom.SetFocus
ElseIf TxtPrénom.Text = "" Then
MsgBox "Veuillez remplir le prénom de votre contact", vbCritical, "Champs manquant"
TxtPrénom.SetFocus
Else
'On remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 1) = UCase(txtNom.Text)
ActiveSheet.Cells(numLigneVide, 2) = TxtPrénom.Text
ActiveSheet.Cells(numLigneVide, 3) = txtAdresse.Text
ActiveSheet.Cells(numLigneVide, 4) = txtCp.Text
ActiveSheet.Cells(numLigneVide, 5) = txtVille.Text
ActiveSheet.Cells(numLigneVide, 6) = txtTelfixe1.Text
ActiveSheet.Cells(numLigneVide, 7) = txtTelfixe2.Text
ActiveSheet.Cells(numLigneVide, 8) = txtTelportable1.Text
ActiveSheet.Cells(numLigneVide, 9) = txtTelportable2.Text
ActiveSheet.Cells(numLigneVide, 10) = txtEmail1.Text
ActiveSheet.Cells(numLigneVide, 11) = txtEmail2.Text
ActiveSheet.Cells(numLigneVide, 12) = txtEmail3.Text
'On efface le formulaire et on replace le curseur sur le premier champs (Nom)
txtNom.Text = ""
TxtPrénom.Text = ""
txtAdresse.Text = ""
txtCp.Text = ""
txtVille.Text = ""
txtTelfixe1.Text = ""
txtTelfixe2.Text = ""
txtTelportable1.Text = ""
txtTelportable2.Text = ""
txtEmail1.Text = ""
txtEmail2.Text = ""
txtEmail3.Text = ""
txtNom.SetFocus
End If
End Sub

Private Sub cmdFermer_Click()
frmNouveau.Hide
End Sub

 

[mutzik]

Re : Problème Bouton Fermer

bonjour

numlignevide = integer, soit au maxi 32767
mets le à long
numlignevide = range("A" & application.rows.count).end(xlup).row +1
le "A" est à adapter selon ton cas

 

[Pierrot93]

Re : Problème Bouton Fermer

Bonjour,

si "frmNouveau" est une "frame" soit un cadre, et non un USF, normal que tu ais cette erreur, la méthode "hide" ne s'applique pas à cet objet.... sans plus de détails difficile de t'en dire plus...

bonne fin d'après midi
@+

Edition : bonjour Bertrand.

 

[Jacky.25]

Re : Problème Bouton Fermer

Bonjour Pierrot93 et merci de me répondre aussi vite, "frmNouveau" est une userForm que j'ai nommée Nouveau Contact et a l'intérieur j'ai fait un cadre "une Frame" que j'ai nommée Formulaire d'ajout d'un nouveau contact dans cette Frame j'ai fai des txtBox (Nom, Prénom ect...) et en dessous de la Frame mais dans la userForm j'ai fais deux boutons un Ajouter et l'autre Fermer.
Voila un peux plus d'explications en espérant t'avoir aiguillé.
Salutations Jacky

 

[Pierrot93]

Re : Problème Bouton Fermer

Re,

A tout hasard, remplace :

frmNouveau.Hide

par :

Me.Hide

Regarde également la réponse de Bertrand, sinon un petit fichier serrait plus facile pour t'aider....

@+

 

[Jacky.25]

Re : Problème Bouton Fermer

Je ne veux pas te bonjour a chaque fois que je te répond mais la je vais te dire un très grand merci car ta solution fonctionne et je ne l'aurais pas trouvé tout seul.
Encore merci Salutations Jacky