[Text Box] Saisie d'un chiffre obligatoire

[Elise]

Bonjour,

Comment obliger une utilisateur à saisir un chiffre valide (c'est à dire en fonction des paramétres régionaux ("," en france et "." aux usa par exemple).

J'ai tapé ceci mais cela considère mes variables comme des string (ce qui est facheux puisque je ne mets que des tangas, hihihi, on se calme les garçons !)!

Private Sub CommandButton1_Click()
UserForm5.Hide
base_vf_196 = TextBox1.Value
base_vf_55 = TextBox2.Value
vat_vf_55 = TextBox3.Value
vat_vf_196 = TextBox4.Value
End Sub

Merci.

 

[Pascal]

Salut Elise,
Il faut déjà que tu convertisses ton texte en nombre, puisqu'un textBox renvoi, comme son nom l'indique, du texte.
Donc je te propose cela:

Private Sub CommandButton1_Click()
UserForm5.Hide
base_vf_196 = Cdec(TextBox1.Value)
base_vf_55 = Cdec(TextBox2.Value)
vat_vf_55 = Cdec(TextBox3.Value)
vat_vf_196 = Cdec(TextBox4.Value)
End Sub

Si ce n'est pas du texte tranformable en nombre, il y aura un message du type "Type impatible". Tu peux si tu le veux le gérer avec la fonction
On Error .... Pour faire afficher un message invitant à recommencer la saise.
bon String, euh Non où ai je la tête, Bonne journée

Pascal

 

[Elise]

Pascal,

J'essaie ça !!

Merci beaucoup. Je te fais un gros bisou sur la joue !