Remplacer un virgule par un point [Résolu]
A voir également:
- Visual basic point
- Visual basic replace - Meilleures réponses
- Replace visual basic 6 - Meilleures réponses
- Remplacer les virgules par des points. ✓ - Forum - C# / .NET
- XML généré : remplacer une virgule par un point ✓ - Forum - C# / .NET
- Probleme avec la virgule et le point dans mes formules lorsque je publie sur mon ✓ - Forum - ASP / ASP.NET
- Remplacer une virgule par un retour chariot ✓ - Forum - Flash
- Vba remplacer point par virgule textbox ✓ - Forum - VB.NET
12 réponses
Bonjour,
utilise par exemple Cdbl(text1.text) (mais uniquement si le point n'a pas été utilisé).
Le plus simple est peut-être encore d'interdire (au Keypress) la saisie de la virgule. Ce sujet a été traité un nombre si considérable de fois que je ne doute pas une seconde que le moteur de recherches de ce forum (si, si, il y en a un) te conduira à une infinité de discussions à ce propos.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
utilise par exemple Cdbl(text1.text) (mais uniquement si le point n'a pas été utilisé).
Le plus simple est peut-être encore d'interdire (au Keypress) la saisie de la virgule. Ce sujet a été traité un nombre si considérable de fois que je ne doute pas une seconde que le moteur de recherches de ce forum (si, si, il y en a un) te conduira à une infinité de discussions à ce propos.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Bonjour,
Recherches vers la fonction "REPLACE" ou "CDBL" (comme dit) selon le besoin.
Amicalement,
Us.
Recherches vers la fonction "REPLACE" ou "CDBL" (comme dit) selon le besoin.
Amicalement,
Us.
Merci à tous pour l'aide !
il y a aussi ce lien qui permet de palié au problème
ce vraiment super !
Encore merci !
Théom@f
il y a aussi ce lien qui permet de palié au problème
ce vraiment super !
Encore merci !
Théom@f
Salut
il faut voir comment tu l'as utilisé
j'ai un peu modifié
pour faire les calculs entre deux textboxs
text1 et text2
ton code ne réagit pas à mon application
il faut voir comment tu l'as utilisé
j'ai un peu modifié
private Function Verifie(contenu As TextBox) As Boolean
'la fonction reçoit un textbox comme parametre
'et verifie si le textbox.text est numérique
'et modifie le séparateur décimal selon le 'séparateur definit par le p.c
Dim sDecimalSeparator As String
sDecimalSeparator = Mid$(CStr(1 / 2), 1, 1)
If Not IsNumeric(contenu.text) Then
Verifie = False
Exit Function
End If
If InStr(1, CStr(contenu.text), ".") Then
If sDecimalSeparator = "," Then
contenu.text = Replace(contenu.text, ".", ",")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
If InStr(1, contenu.text, ",") Then
If sDecimalSeparator = "." Then
contenu.text = Replace(contenu.text, ",", ".")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
Verifie = True
End Function
pour faire les calculs entre deux textboxs
text1 et text2
If Verifie(Text1) And Verifie(Text2) Then Dim prod,add As Double prod = CDbl(Text1.text) * CDbl(Text2.text) add = CDbl(Text1.text) + CDbl(Text2.text) End If
Bonjour
le problème n'est pas seulement de remplacer
la , par .
mais d'analyser le contenu de ta texbox
peut etre ainsi
pour utiliser
le problème n'est pas seulement de remplacer
la , par .
mais d'analyser le contenu de ta texbox
peut etre ainsi
Private Function Verifie(ByRef contenu As String) As Boolean
Dim sDecimalSeparator As String
sDecimalSeparator = Mid$(CStr(1 / 2), 1, 1)
If Not IsNumeric(contenu) Then
Verifie = False
Exit Function
End If
If InStr(1, CStr(contenu), ".") Then
If sDecimalSeparator = "," Then
contenu = Replace(contenu, ".", ",")
Verifie = True
Exit Function
End If
Verifie = True
Exit Function
End If
If InStr(1, contenu, ",") Then
If sDecimalSeparator = "." Then
contenu = Replace(contenu, ",", ".")
verife = True
Exit Function
End If
Verifie = True
Exit Function
End If
Verifie = True
End Function
pour utiliser
Dim t As String t = Text1.Text If Verifie(t) Then Dim x As Double x = CDbl(t) + 5 End If
Salut ShayW,
ton code ne réagit pas à mon application
j'ai eu à l'essayé mais rien ne se passe !
Je m'y mettre peu après et je te donnerais la suite ,
Merci !
Théom@f
ton code ne réagit pas à mon application
j'ai eu à l'essayé mais rien ne se passe !
Je m'y mettre peu après et je te donnerais la suite ,
Merci !
Théom@f
Ok ! ShayW, Super en fait c mieux malgès que ce long
Je fais comme t'a écris, je déclarer la fonction en privé e tmis le code dans change ...
Et le tour est joué
Merci !
Théom@f
Je fais comme t'a écris, je déclarer la fonction en privé e tmis le code dans change ...
Et le tour est joué
Merci !
Théom@f
Utilisateur anonyme
Bonjour ShayW,
Mid, IsNumeric, CStr, Instr, Replace sont obsolètes.
Utilise SubString, IsNumeric (sur chaîne), ToString, IndexOf, Replace (sur chaîne).
Ensuite :
Utilise plutôt :
Mid, IsNumeric, CStr, Instr, Replace sont obsolètes.
Utilise SubString, IsNumeric (sur chaîne), ToString, IndexOf, Replace (sur chaîne).
Ensuite :
private Function Verifie(contenu As TextBox) As Boolean '... Verifie = True end function
Utilise plutôt :
Return True