Gestion des float : "," et "."

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Gestion des float : "," et "."

kowalski

Lors d'une extraction, des variables de types 12.000 sont sorties d'une base

Je veux les utiliser comme des float, probleme, mon PC a comme séparateur ","
Dans l'enteprise le Control Panel est bloqué.
Donc je cherche la commande, macro éventuelle qui me permet de faire reconnaitre 1.000 (string) en 1 (variable integer ou decimale)

Merci aux Nurs, Drashes etc etc qui vondront bien m'aider...
Ralala ces stages où on nous mets sur VBA alors qu'on est pas spécialiste

Publicité

kowalski

Vous n'avez pas d'idée ce matin ? Je suis presque persuadé qu'il y a une commande... ou un NumberFormat spécifique... reste à trouver lequel

MagicBuzz

Jamais trouvé.

J'utilise cette fonction (de merde )

Code :

function doDouble(val as string) as Double
dim localSep
dim inputSep
localSep = mid(cstr(1.1), 2, 1)
if instr(val, "." ) > 0 then
inputSep = "."
elseif instr(val, "," ) > 0 then
inputSep = ","
else
inputSep = ""
end if
if inputSep <> "" then
doDouble = cdbl(replace(val, inputSep, localSep))
else
doDouble = cdbl(val)
end if
end function

C pas terrible, mais j'ai rien trouvé de mieu

kowalski

Txs ! je m'étais codé une petite moulinette à partir des strings en attendant une commande VBA... Il n'y en a pas, je reste à ma moulinette !

Ralala ce VBA/Excel

drasche

Ton problème est que VB ne comprend que les expressions du genre "3.14" et non "3,14". Si tu essayes de taper l'expression string "3.14" dans une variable de type Double, ça marchera. Mais "3,14" générera une erreur. Quand le cas se présente, il y a une manière courte de procéder:

Code :

variable = CDbl(Replace("3,14", ",", "." ))

Dans mon boulot, je reçois jamais de nombre avec séparateur de milliers, et si tu en reçois, il faudra procéder de la même manière, mais pour les éliminer (donc remplacer par chaîne vide).

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

MagicBuzz

drasche a écrit :

Code :

variable = CDbl(Replace("3,14", ",", "." ))

Dans mon boulot, je reçois jamais de nombre avec séparateur de milliers, et si tu en reçois, il faudra procéder de la même manière, mais pour les éliminer (donc remplacer par chaîne vide).

Bah nan, le problème justement, c'est que si c'est du VBA (et non VB) le séparateur reconnu lors de l'interprétation des chaînes est dépendant des paramètres de l'utilisateur.

Autrement dis, si tu t'amuse à mettre "@" comme sépartateur de décimale dans tes paramètres régionnaux, ben ton VBA, il n'acceptera que "3@14", et non "3,14" ni "3.14" (par contre, il acceptera 3.14 :pt1cable:

Du coup ma fonction me semble la plus correcte, puisqu'elle permet de s'en sortir à coup sûr dans 100% des cas, même si l'utilisateur est un débile profonds qui utilise n'importe quoi.

drasche

déformation professionnelle, je suis sur le même projet depuis 4 ans et le séparateur décimal ne peut strictement être que la virgule dans notre configuration :pt1cable:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Gestion des float : "," et "."

Sujets relatifs
pb gestion du TimeOut avec ReadFile	[DEBUTANT] pb concernant la gestion des droits
Entre les double et les float...	[perl] limiter le nombre de chiffre d'un float ?
gestion des apostrophes	[PHP] Gestion courrier, documents....
Cherche bibliothèque C/C++ pour gestion/décompression de flux video	gestion des chaines de caracteres
Gestion d entree sortie	Servlet :Gestion des sessions différente selon client IE6/Mozilla1.2.1
Plus de sujets relatifs à : Gestion des float : "," et "."

Page générée en 0.047 secondes