Remplacer un virgule par un point [Résolu]
320C
Membre Dernière intervention
15 janvier 2014
- - Dernière réponse : Utilisateur anonyme - 11 janv. 2013 à 23:19
- Messages postés
- 99
- Date d'inscription
- dimanche 24 avril 2011
- Statut
A voir également:
- Visual basic point
- Visual basic replace - 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
- Remplacer en vba le point par une virgule - Codes sources - Visual Basic / VB.NET (VBA)
12 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
143 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2117
- Date d'inscription
- lundi 11 avril 2005
- Statut
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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
143 internautes nous ont dit merci ce mois-ci
- Messages postés
- 99
- Date d'inscription
- dimanche 24 avril 2011
- Statut
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
143 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3247
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
143 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3247
- Date d'inscription
- jeudi 26 novembre 2009
- Statut
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