Remplacer un virgule par un point [Résolu]
320C
- Messages postés
- 99
- Date d'inscription
- dimanche 24 avril 2011
- Dernière intervention
- 15 janvier 2014
A voir également:
- Remplacer un virgule par un point
- 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
a aidé 98 internautes ce mois-ci
- Messages postés
- 2117
- Date d'inscription
- lundi 11 avril 2005
- Dernière intervention
- 14 mars 2016
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
a aidé 98 internautes ce mois-ci
- Messages postés
- 99
- Date d'inscription
- dimanche 24 avril 2011
- Dernière intervention
- 15 janvier 2014
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
a aidé 98 internautes ce mois-ci
- Messages postés
- 3244
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 13 décembre 2018
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
a aidé 98 internautes ce mois-ci
- Messages postés
- 3244
- Date d'inscription
- jeudi 26 novembre 2009
- Dernière intervention
- 13 décembre 2018
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.