verification valeur dans userform

[sri75]

Bonjour, j'ai créé cette verification de valeur dans mon userform afin d'empecher la saisie d'une valeur non comprise entre 3 et 20 mais dès que je tape un chiffre ( ex le 1 de 10 ) la macro s'execute de suite sans attendre la fin de ma saisie pouir vérifier la validité de ma valeur du coup dès que le 1 est saisi j'ai le message d'erreur.

Merci à tous pour vos conseils

Private Sub TextBox5_Change()

dure = TextBox5.Value

If dure < 3 Or dure > 20 Then
MsgBox ("la durée d'amortissement doit être comprise entre 3 et 20 ans")
TextBox5.SetFocus
End If


Range("g3") = dure

End Sub

 

[Hulk]

Re : verification valeur dans userform

Hello,

Rajoutes cette ligne avant le premier If.

If dure < 3 Then Exit Sub

 

[john]

Re : verification valeur dans userform

Salut,

Tu dois utiliser la fonction TextBox5_AfterUpdate() (à la place de TextBox5_Change) c'est à dire que le contrôle ne se fait que quand tu quittes ton textbox et apparemment c'est ce que tu voudrais.

exemple:
Private Sub TextBox1_AfterUpdate()
dure = TextBox1.Value
If dure < 3 Or dure > 20 Then
MsgBox ("la durée d'amortissement doit être comprise entre 3 et 20 ans")
TextBox1.SetFocus
End If
End Sub

Bonne journée.

John

 

[Dull]

Re : verification valeur dans userform

Salut Sri75, le Forum

met ton code dans cette Procédure

[B]Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)[/B]
dure = TextBox5.Value

If dure < 3 Or dure > 20 Then
MsgBox ("la durée d'amortissement doit être comprise entre 3 et 20 ans")
With TextBox5
.Value = ""
.SetFocus: Exit Sub
End With
End If
Range("g3") = dure

EDITION Salut Hulk🙂, john

Bonne Journée

 

[sri75]

Re : verification valeur dans userform

merci à tous pour vos réponses je vais tester celle de Dull que je n'avais pas encore vue.

je poste mon fichier pour avoir vos avis sur ces points.

je voudrais que mes textbox de textbox6 à l'infini restent vierges tant que textbox5 ( durée ) n'est pas rempli et que mes données saisies se mettent à jour en cas de modification de saisie dans les textbox 1 à 5 ( ex je met 50000 comme prix puis une fois que tout est calculé je reviens mettre 40000 à la place ).

A priori j'ai réussi à faire ce que je voulais, je poste mon fichier pour prendre votre avis sur des optimisations possibles

merci d'avance

 

[john]

Re : verification valeur dans userform

Salut,
Je viens de tester mais ça marche pas. J'ai voulu entrer 12 dans la zone d'amortissement et j'ai directement le messagbox qui me dit que je dois entrer un nombre entre 3 et 20 mais je n'ai pas encore fini d'entrer le nombre 12.

Je pense que tu as oublié de faire le changement comme expliqué ci-dessus dans ton programme.

Bonne fin de journée.

John

 

[Lii]

Re : verification valeur dans userform

Bon soir,


J'ai nettoyé un peu ton fichier sans savoir quelle était l'utilité de l'USF.
Une ListView pourrait peut être réduire sensiblement le nombres de Contrôles ?

remarque : suppression d'une partie incomplète de mon message donc erronée

 

[sri75]

Re : verification valeur dans userform

merci à tous, malheureusement je n'arrive pas à contourner le pb soulevé par John concernant la durée de l'amortissement car dès que je rentre le 1 de 15 j'ai le message d'anomalie.

je peut contourner le pb avec un afterupdate mais cela oblige à faire obligatoirement une tabulation de validation alors que je souhaiterais que cela ce mettre à jour en changeant seulement la valeur dans le texbox5.

Pour la version de Lii je vais tester demain mais elle me semble un peu trop élaborée pour moi.

A demain donc et merci pour vos conseils