usf donne erreur

Re : usf donne erreur

Salut Denis,

Je ne comprends pas tout dans ton fichier. Je remplis certains textbox et lorsque je valide, il me met une erreur sur la ligne suivante Replacer_quilles_abatues_joueurs, ce qui est normal etant donné que la procédure ne se trouve pas dans ton fichier.

En attendant que tu nous donnes cette procédure,

@+

Re : usf donne erreur

Bonjour Denniss et les amis.
Je suis comme porcinet 82 j'ai du mal à m'y retrouver!!
En attendant tu trouveras ci-joint un petit fichier qui devrait t'aider à résoudre ton PB de contôle des entrées dans un TextBox.
Bien cordialement
Jacques

Re : usf donne erreur

merci jacrav

oui cela ressemble beaucoup a ce que je voulais , je voulais qu'apres 3 chiffre d'entres il arrete car j'ai depasse le maximim permit

j'ai ete obliger de raccourcir un peu car mon dossier etait trop volumineux
j'ai peut etre omit d'envoyer des adresses strategique

j'ai un peut de difficulte a programmer clairement excuse si c'est un peut mele .

si j'ecrit se que vous me conseiller cela ressemblerait a cela

Private Sub TextBox1_Change()
if len(Textbox1.valeur) > 3 then
msgbox"Depassement",vbcritical
beep
exit sub
end if

if textbox1.value <> "" and not IsNumeric(TextBox1) Then
msgbox "Veuillez entrer un nombre",vbcritical
beep
Label7.Caption = ""
Exit Sub
End If
end if
label1.caption = textbox1.value

a1 = Val(TextBox1.Value)
aa1 = Val(Label24.Caption)
Label7 = a1
Label27 = a1 + aa1
Label41 = a1 + aa1
Label42 = a1
End Sub

merci beaucoup de votre aide
j'espere etre plus clair la prochaine fois

merci dennnisss

Re : usf donne erreur

Bonsoir Dennisss et le forum
Attention au code!Bien respecter les majuscules et ne pas mettre "valeur" à la place de Value à moins de déclarer "valeur" en variable(ici celà ne se justifie pas)
Private Sub TextBox1_Change()
If Len(Textbox1.Value) > 3 then
msgbox"Depassement",vbcritical
beep
Exit sub
End If

If textbox1.value <> "" and not IsNumeric(TextBox1) Then
msgbox "Veuillez entrer un nombre",vbcritical
beep
Label7.Caption = ""
Exit Sub
End If
'End If sans If!!!a supprimer
Label1.Caption = textbox1.value

a1 = Val(TextBox1.Value)
aa1 = Val(Label24.Caption)
Label7 = a1
Label27 = a1 + aa1
Label41 = a1 + aa1
Label42 = a1
End Sub

Celà devrait marcher!
Bon courage
Bien cordialement
Jacques