CODE QUI PERMET DE REMPLACER LE POINT DU PAVE NUMERIQUE PAR UNE VIRGULE

Signaler
Messages postés
88
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
1 mars 2008
-
Messages postés
12
Date d'inscription
dimanche 16 mars 2003
Statut
Membre
Dernière intervention
29 juillet 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8008-code-qui-permet-de-remplacer-le-point-du-pave-numerique-par-une-virgule

Messages postés
12
Date d'inscription
dimanche 16 mars 2003
Statut
Membre
Dernière intervention
29 juillet 2010

ou sinon en une ligne

Text1.Text = Replace(Text1.Text, ".", ",")
Messages postés
140
Date d'inscription
mardi 25 novembre 2003
Statut
Membre
Dernière intervention
1 novembre 2010
5
C'est excellent pour moi, j'ai pu résoudre ce pble de virgule.
Je voulait un inputbox arrondi d'altitude entre 500 et 1500ml
(pour calcul descente de charge : neige).
Apparemment ça marche en utilisant un bout de ton code :

Private Sub cmd1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd1.Click
Dim alTitude
tb1.Visible = False
line1:
alTitude = InputBox("Entrez une altitude" & Chr(10) & _
" Entre 500 ml et 1500 ml" _
, "ALTITUDE")
Try
Dim i As Integer
For i = 1 To Len(alTitude)
If Mid(alTitude, i, 1) = "." Then
Mid(alTitude, i, 1) = ","
End If
Next i
Merci, bonne route.
alTitude = CInt(alTitude + 0.4)
If alTitude < 500 Or alTitude > 1500 Then
GoTo line1
End If
Catch ex As Exception
GoTo line1
End Try
tb1.Text = alTitude
tb1.Visible = True
End Sub
End Class
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
ah ouais... Dans ca cas la, mais je ne savais pas qu'on pouvait le faire....
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
5
pas tout a fait asc(".") et asc(",")
Afficher les 17 commentaires