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
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