Erreur debug

[BLS77]

Bonjour le forum,
je suis sous xl 2007 je débutant intermédiaire
j'ai mesage d'erreur a chaque fois que je veux validé ma saisi
quelqu'un peux m'aider svp
merci

 

[JNP]

Re : Erreur debug

Bonjour ,
Tu n'aurais pas oublié de renseigner ta variable em (pour la ligne) ?

[COLOR=blue]Private Sub[/COLOR] BtnValier_Click()
novo = [COLOR=blue]True[/COLOR]
[COLOR=blue]If[/COLOR] empNom.Text = "" [COLOR=blue]Then[/COLOR] emp.Hide: [COLOR=blue]Exit Sub[/COLOR]
emp.Hide
[COLOR=red][B]em = finemp()[/B][/COLOR]
Sauve_emp
[COLOR=blue]End Sub[/COLOR]

Bonne journée

 

[kjin]

Re : Erreur debug

Bonjour,
Dans le module du formulaire, modifie la ligne bleue

Private Sub BtnValier_Click()
novo = True
If empNom.Text = "" Then emp.Hide: Exit Sub
emp.Hide
Sauve_emp [COLOR="Blue"]finemp()[/COLOR]
End Sub

et dans le module Sauve

Public Sub Sauve_emp([COLOR="Blue"]em[/COLOR])

Edit : Salut JNP
A+
kjin

 

[BLS77]

Re : Erreur debug

Bonjour le forum et JNP KJIN
j'ai essayer les deux méthode j'ai une erreur d'excution '13'
je n'arrive à comprendre
Citation c'est ca joué dans la cours des grands lol

 

[JNP]

Re : Erreur debug

Re ,
Sur quelle ligne, car je n'ai pas eu d'erreur, mais je mettais juste N°, Nom et Prénom ?
Est-ce que dans tes tests tu respectes bien ce qui est attendu (si N° est avec des lettres, le CInt ne passera pas, par exemple) ?
A +

 

[BLS77]

Re : Erreur debug

Re le forum

j'ai fais exactement comme tu m'as dis mais ca ne marche pas
voir fichier joint

 

[BLS77]

Re : Erreur d'ecution 13

Re le forum
maintenant c'est une erreur d'excution 13
quelqu'un peut il me dire svp ou j'ai pu faire une erreur
merci