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

Commenter

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

S'inscrire maintenant

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)