Problème Isnumeric Textbox.value "." ","

Bonjour à tous,

Je vous remercie déjà de prendre le temps de lire mon problème. En effet, j'ai un problème de test de valeur sur une textbox.

Code:

---

1 2 3 4 5 6 7 8 9 10

If IsNumeric(Purete.Value) Then If Purete.Value <= 0 Or Purete.Value > 100 Then MsgBox "La valeur de la pureté doit être comprise entre 0 et 100%", vbCritical GoTo fin End If Else MsgBox "La pureté doit être un nombre !", vbCritical GoTo fin End If

---

Je veux tester comme le code l'indique si ma valeur de textbox est numérique ou pas. Le problème est que si j'exécute avec cela, que je mettre un nombre décimal avec un point ou une virgule, le code se place dans le "Elseé, il ne le considère donc pas comme un nombre.
J'ai essayé en mettant val(purete.value), replace(purete.value,".",",").
Mais rien n'y fait. Replace ne fonctionne pas mais val me tronque les décimales.

Si vous avez une petite idée. La textbox se trouve sur un userform.
Je vous remercie d'avance et vous souhaite une bonne soirée, :ccool:

Bien cordialement,

Anthony

Bonjour.

Code:

---

1 2 3 4

V = Replace(Purete.Value, ",", ".")   If IsNumeric(V) Then …

---

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Ou peut-être encore

Code:

---

If CDbl(Purete.Value) <= 0 Or CDbl(Purete.Value) > 100 Then

---

Bien vu !

Z'avais un peu oublié les fonctions de conversion de types de données fonctionnant avec les deux séparateurs décimaux …

sinon pour les "," et ".", macro sur l'évènement KeyPress

Code:

---

1 2 3

Private Sub purete_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") End Sub

---

Bonjour à tous,

Je voulais déjà commencer par vous remercier pour vous intéresser à mon cas.
J'ai essayer encore une fois vos propositions que j'avais déjà essayer avant même Cdbl() qui n'ont rien donné. En effet, le replace ne fait rien de plus et le Cdbl() m'inflige une erreur de compatibilité de type 13.

Par contre, je n'ai pas bien saisi le message de casefayere. en effet, le problème se pose sur un userform avec un bouton de commande pour valider l'userform. Pourquoi alors un Keypress? Merci d'éclaircir mes pensées.

Bonne journée à vous et encore merci,

Anthony

Bonjour,
le code que j'ai mis est à intégrer dans le TextBox concerné, dans l'éditeur, double-click sur le textbox et copies ce code. Quand tu saisiras un point, il sera remplacé automatiquement par une virgule

Ok d'accord.
Le problème est que même avec une virgule cela ne fonctionne pas. C'est là que j'ai du mal à comprendre car aucuns des deux séparateurs décimaux fonctionnent.

Pourtant sur le test supérieur à 100 et inférieur à 0 cela fonctionne. Le problème vient peut être du Isnumeric, non?

Les trois propositions fonctionnant de nôtre côté, donc …

Dans le même ordre d'idée de ce que j'zi proposé, essayes

Code:

---

1 2 3 4 5 6

Private Sub purete_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") If Chr(KeyAscii) <> "," And Not IsNumeric(Chr(KeyAscii)) Then MsgBox "ce n'est pas un chiffre" End If End Sub

---

Ton code marche bien casefayere ! Cependant, est-il possible de rajouter une ligne pour faire un reset de la valeur de la textbox après avoir cliquer sur le msgbox? J'ai mis

Code:

---

purete.value =""

---

mais cela ne fonctionne pas.

Auriez-vous une petite idée ? Merci encore :ccool:

Essayes ça qui supprime le mauvais caractère (non numérique) entré

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Purete_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim verif As Boolean verif = False If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") If Not IsNumeric(Chr(KeyAscii)) And Chr(KeyAscii) <> "," Then MsgBox "ce n'est pas un chiffre" KeyAscii = 0 End If   If Not verif Then verif = True Else KeyAscii = 0   End Sub

---

Merci beaucoup casefayere. Ce code est parfait.
J'ai juste enlevé les lignes de code avec verif car je n'en vois pas l'utilité. Si elles ont une utilité peut être que je me trompe car verif est toujours false sauf à la fin mais aucune action n'est liée.

Merci encore pour votre aide,
Bonne journée :ccool:

Anthony

Bonjour,

Citation:

---

J'ai juste enlevé les lignes de code avec verif

---

,

as-tu testé si ça t'enlève bien le caractère incorrect ? si oui, eh bien d'accord...

Bonne journée