VB6 Format
Résolu
cs_JeffC1977
Messages postés
928
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2023
-
8 mars 2006 à 16:37
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 8 mars 2006 à 17:03
addamsmercredi Messages postés 121 Date d'inscription dimanche 3 octobre 2004 Statut Membre Dernière intervention 27 juillet 2006 - 8 mars 2006 à 17:03
3 réponses
addamsmercredi
Messages postés
121
Date d'inscription
dimanche 3 octobre 2004
Statut
Membre
Dernière intervention
27 juillet 2006
8 mars 2006 à 17:03
8 mars 2006 à 17:03
Tu peux comme ceci sans aucun test :
Text1.Text = Val(0 & Replace(Text1.Text, ",", "."))
Les 0 inutiles sont automatiquement supprimés.
Text1.Text = Val(0 & Replace(Text1.Text, ",", "."))
Les 0 inutiles sont automatiquement supprimés.
cs_moustachu
Messages postés
1079
Date d'inscription
jeudi 14 novembre 2002
Statut
Membre
Dernière intervention
1 janvier 2012
8 mars 2006 à 16:44
8 mars 2006 à 16:44
Bonjour
Par exemple, tu peux faire
If left(trim(textbox1.text)=',' then
textbox1.text = "0" & textbox1.text
end if
++
Moustachu
Par exemple, tu peux faire
If left(trim(textbox1.text)=',' then
textbox1.text = "0" & textbox1.text
end if
++
Moustachu
cs_JeffC1977
Messages postés
928
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2023
4
8 mars 2006 à 16:55
8 mars 2006 à 16:55
Salut...
J'ai essayé ton exemple... hum ca ne fonctionne pas ce me sort comme erreur...
Erreur de compilation:
Nombre d'arguments incorect ou affectation de propriété incorrect
Voici le code..
If Left(Trim(txtVertical.Text) = ",") Then
txtVertical.Text = "0" & txtVertical.Text
End If
merci d'avance
J'ai essayé ton exemple... hum ca ne fonctionne pas ce me sort comme erreur...
Erreur de compilation:
Nombre d'arguments incorect ou affectation de propriété incorrect
Voici le code..
If Left(Trim(txtVertical.Text) = ",") Then
txtVertical.Text = "0" & txtVertical.Text
End If
merci d'avance
