Code qui permet de remplacer le point du pave numerique par une virgule

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 369 fois - Téléchargée 38 fois

Contenu du snippet

c'est une fonction qui permet de remplacer le point du pave numerique par une virgule

c'est très intérressant
sa évite d'utilisé la virgule

ce code peut être adapté pour autre chose
c'est une fonction multiple

Source / Exemple :


Private sub form_load

RenvoiDecimal(Text1.text)
Text1.text=Nombre

end sub

Function RenvoiDecimal(ChaineDepart As String) As String

'fonction qui permet de filtrer la chaine et de remplacer le point par une virgule a l'endroit exacte ou il se trouve
Dim i As Integer
    
    On Error GoTo Erreur
    
    For i = 1 To Len(ChaineDepart)
        If Mid$(ChaineDepart, i, 1) = "." Then Mid$(ChaineDepart, i, 1) = ","
    Next i
    
    Nombre = Mid$(ChaineDepart, 1, i)
    
     
    Exit Function
    
'gestion d'erreur en cas de probleme
Erreur:
    Nombre = ChaineDepart
    
End Function

A voir également

Ajouter un commentaire

Commentaires

z980x
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2 -
ABL-Online, je trouve que ta solution est la meilleure car il est très simple de remplacer n'importe quel caractère... Alors qu'avec la méthode de dragon, il faut absolument connaitre le code ASCII de la touche...

Merci !
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
3 -
pas tout a fait asc(".") et asc(",")
z980x
Messages postés
898
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....
cs_christoni
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
cs_labk92
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, ".", ",")
Commenter la réponse de cs_BFR

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.

Du même auteur (damprog)