Discussion :

[MEUCORACAO]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

Bien cordialement,

Anthony

[Marc-L]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    V = Replace(Purete.Value, ",", ".")
 
    If IsNumeric(V) Then
    …

__________________________________________________________________________________________

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

[parmi]

Ou peut-être encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bien vu !

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

[casefayere]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MEUCORACAO]

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