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 392 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

cs_BFR
Messages postés
88
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
1 mars 2008
-
Une autre façon

Private Sub Text1_Change()
'-Changer les points en virgules

If InStr(Text1, ".") Then
'-Remplacement
Text1 = Replace(Text1, ".", ",")
'-Repositionnement du curseur
Text1.SelStart = Len(Text1)
End If
End Sub
A++
ABL-Online
Messages postés
65
Date d'inscription
dimanche 16 septembre 2001
Statut
Membre
Dernière intervention
21 septembre 2006
-
Plus simple, plus rapide, et ce fait en temps réel lors de la frappe :

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDecimal Then
Text1.Text = Replace(Text1.Text, ".", ",")
Text1.SelStart = Len(Text1.Text)
End If
End Sub
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
3 -
ou encore
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then
KeyAscii = 44
End If
End Sub
cs_dragon
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
3 -
oups désoler, pensais que ça avait planté
ABL-Online
Messages postés
65
Date d'inscription
dimanche 16 septembre 2001
Statut
Membre
Dernière intervention
21 septembre 2006
-
ça c'est que je j'appelle du encore plus rapide :o)

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)