changer les "." de ma variable en string en ","

Question

Voila, j'ai des valeurs de rentrés dans un tableau en string. 
Les valeurs sont du type: "12.34" 
Je souhaite les convertir en single via la fonction CSng, mais pour cela il faut que ces valeurs soit du type : "12,34"

En gros il fraudais réussir à transformer le point en virgule.

Donc si quelqu'un connais le code permettant de faire cela je suis preneur ^^

meiteisho · Answer

Bonjour

Essaye la fonction Replace


Dim mastring as string
Dim mysingle as single

mastring = "22.12"
mastring=Replace(mastring ,".",",")

Mysingle=csng(mastring)

cs_ShayW · Answer

Salut
il faut faire attention il se peut que le séparateur décimal dans un autre ordinateur soit
un . 

donc 
   Dim sp As String
   sp = 1 / 2
   sp = sp.Substring(1, 1)
   Dim mastring as string
   Dim mysingle as single
   mastring = "22.12"
   mastring=Replace(mastring ,".",sp)
   Mysingle=csng(mastring)

meiteisho · Answer

Bonjour

Effectivement je n'avais pas envisagé ce cas !
Ta méthode est donc bien plus pertinente que la mienne

Merci :)

Renfield · Answer

NON, NON, NON et NON !!!!!


If IsNumeric(maValeur) Then
    MySng = CSng(maValeur)
Else
    MySng = Val(maValeur)
End If

Pas de Replace, ou de choses en dur !!!

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Changer les "." de ma variable en string en ","

4 réponses

Votre réponse

Discussions similaires