Re : Erreur d'excution 438
Bonjour,
J'ai coché la case "débutant" car il n'exite pas de case inculte...
J'aimerai vous consulter à propos de l'erreur 438 qui s'affiche alors que j'essaie de lancer une macro que je viens de créer.
Ne criez pas mais j'ai excel 2010 et j'ai suivi le tutoriel d'Alexis Dadache pour créer un carnet d'adresse... le hic c'est que son tuto est pour une autre version d'excel, j'en suis consciente mais jusque la tout marchait, et puisque c'est un bon pédagogue, je me suis entêtée sauf que la je n'y arrive plus et j'ai vraiment besoin d'aide. J'en suis au point de créer les propriétés du bouton "ajouter".. Mais je suppose quand lisant le reste, vous comprendrez bien mieux que si je tentais de vous expliquer quoique soit!
Je vous fait un copier coller de ce que j'ai écris et si quelqu'un avait la gentillesse de me corriger ce serait vraiment super.
Je précise qu'une ligne surlignée de jaune apparait à chaque fois que je clique sur débogage (je l'ai également surligné pour que vous la repériez plus vite) mais comme j'ai reproduis à l'identique les manipulations du tuto je suis bloquée.
Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
'on active la feuille "LISTE"
'worskheets : "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 correctements remplis numLigneVide = ActiveSheet.colums(1).Find("").Row
'on vérifie que les champs obligatoires sont correctement remplis
If txtNom.Text = "" Then
MsgBox "Veuillez remplir le nom", vbCritical, "champ manquant"
txtNom.SetFocus
ElseIf txtPrenom.Text = "" Then
MsgBox "Veuillez remplir le prénom", vbCritical, "champ manquant"
txtPrenom.SetFocus
ElseIf txtPortable.Text = "" Then
MsgBox "Merci de renseigner le numéro de téléphone", vbCritical, "champs manquant"
txtPortable.SetFocus
ElseIf txtMail1.Text = "" Then
MsgBox "Merci d'indiquer une adresse mail", vbCritical, "champs manquant"
txtMail1.SetFocus
ElseIf txtAnniversaire.Text = "" Then
MsgBox "Merci de noter la date de votre anniversaire", vbCritical, "champ manquant"
txtAnniversaire.SetFocus
Else
'on remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 1) = UCase(txtNom.Text)
ActiveSheet.Cells(numLigneVide, 2) = txtPrenom.Text
ActiveSheet.Cells(numLigneVide, 3) = txtAdresse.Text
ActiveSheet.Cells(numLigneVide, 4) = txtCP.Text
ActiveSheet.Cells(numLigneVide, 5) = txtVille.Text
ActiveSheet.Cells(numLigneVide, 6) = txtFixe.Text
ActiveSheet.Cells(numLigneVide, 7) = txtPortable.Text
ActiveSheet.Cells(numLigneVide, 8) = txtMail1.Text
ActiveSheet.Cells(numLigneVide, 9) = txtMail2.Text
ActiveSheet.Cells(numLigneVide, 10) = txtAnniversaire.Text
'on efface le formulaire et on replace le curseur sur le premier champs (Nom)
txtNom.Text = ""
txtPrenom.Text = ""
txtAdresse.Text = ""
txtCP.Text = ""
txtVille.Text = ""
txtFixe.Text = ""
txtPortable.Text = ""
txtMail1.Text = ""
txtMail2.Text = ""
txtAnniversaire.Text = ""
txtNom.SetFocus
End If
End Sub
Private Sub cmdFermer_Click()
frmNouveau.Hide
End Sub
Voilà, merci par avance...