usf donne erreur

[Dennnisss]

bonjour a tous j'ai un leger probleme dans
mon usf

lorsque j'entre des chiffre dans mon usf , j'ai environs 30 val(texbox)
si j'oublie de faire enter pour entre mes chiffres mon usf arrete et me
donne une erreur et si je fait l,erreur vers les dernier alors je doit tout recommencer

si vous avez une solution il faux que j'entre au maximum 3 chiffres
par textbox

j'ai essayer avec quelque chose qui ressemble a cela
in textbox1 > 300 the
textbox1 = False
ect.....

si c'est dans le possible faire une fenetre qui arrete la macro et donne un message mais qui retourne dans sa macro sans rien deranger sur la macro

ou encore mettre une formule qui apres avoir entree 3 chiffres il change de textbox par lui-meme (je prefere mieux celci)

alors je vous demande de m'aider et apprecie beaucoup votre aide

merci dennnisss

 

[porcinet82]

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,

@+

 

[JACRAV]

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

 

[Dennnisss]

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

 

[JACRAV]

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