OVH Cloud OVH Cloud

vb transformer les points par des virgules

6 réponses
Avatar
heidy
bonjour,
je fais un programme sur vb et j'aimerai savoir comment transformer les
points par des virgules car dans le programme ce sont des calculs, et donc on
rentre des nombres.
merci d'avance
--
heidy

6 réponses

Avatar
Gafish
heidy wrote:
bonjour,


Bonjour,

je fais un programme sur vb et j'aimerai savoir comment transformer
les points par des virgules car dans le programme ce sont des
calculs, et donc on rentre des nombres.
merci d'avance


Si tu es en 2000 ou plus, tu as la fonction Replace, dans ton cas, avec
maChaine variable contenant la chaîne à modifier :

Replace(maChaine, ".", ",")


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
heidy
j'ai écrit ce que tu m'a dit mais il me met "erreur: attendue :=", tu sais
pourquoi?
--
heidy



heidy wrote:
bonjour,


Bonjour,

je fais un programme sur vb et j'aimerai savoir comment transformer
les points par des virgules car dans le programme ce sont des
calculs, et donc on rentre des nombres.
merci d'avance


Si tu es en 2000 ou plus, tu as la fonction Replace, dans ton cas, avec
maChaine variable contenant la chaîne à modifier :

Replace(maChaine, ".", ",")


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Gafish
heidy wrote:
j'ai écrit ce que tu m'a dit mais il me met "erreur: attendue :=", tu
sais pourquoi?



Oui, autant pour moi, il manquait quelque chose :

maChaine = Replace(maChaine, ".", ",")


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
heidy
ça marche toujours pas, la fonction a l'air de marcher mais après ça fait un
débogage, quand le calcul commence.
ou sinon si tu veux je te fais voir le début de mon module!?!

Dim Tt1p, Tt2p, M1p, M2p, Ttp
Tt1p = Replace(Tt1p, ".", ",")
Tt2p = Replace(Tt2p, ".", ",")
Ttp = Replace(Ttp, ".", ",")
M1p = Replace(M1p, ".", ",")
M2p = Replace(M2p, ".", ",")

'PETIT DIFFUSEUR
MsgBox ("Petit diffuseur")
M1p = InputBox("saisir la masse des appareils à 1/3 de la durée de
fonctionnement")
Tt1p = InputBox("saisir son Temps")
M2p = InputBox("saisir la masse des appareils à 2/3 de la durée de
fonctionnement")
Tt2p = InputBox("saisir son Temps")
Ttp = Tt2p - Tt1p
MsgBox ("Le temps total pour petit diffuseur est de " & Ttp)

c'est à l'avant dernière ligne qu'il y a le débogage
merci
--
heidy



heidy wrote:
j'ai écrit ce que tu m'a dit mais il me met "erreur: attendue :=", tu
sais pourquoi?



Oui, autant pour moi, il manquait quelque chose :

maChaine = Replace(maChaine, ".", ",")


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Gafish
heidy wrote:
ça marche toujours pas, la fonction a l'air de marcher mais après ça
fait un débogage, quand le calcul commence.
ou sinon si tu veux je te fais voir le début de mon module!?!

Dim Tt1p, Tt2p, M1p, M2p, Ttp
Tt1p = Replace(Tt1p, ".", ",")
Tt2p = Replace(Tt2p, ".", ",")
Ttp = Replace(Ttp, ".", ",")
M1p = Replace(M1p, ".", ",")
M2p = Replace(M2p, ".", ",")

'PETIT DIFFUSEUR
MsgBox ("Petit diffuseur")
M1p = InputBox("saisir la masse des appareils à 1/3 de la durée de
fonctionnement")
Tt1p = InputBox("saisir son Temps")
M2p = InputBox("saisir la masse des appareils à 2/3 de la durée de
fonctionnement")
Tt2p = InputBox("saisir son Temps")
Ttp = Tt2p - Tt1p
MsgBox ("Le temps total pour petit diffuseur est de " & Ttp)

c'est à l'avant dernière ligne qu'il y a le débogage
merci


Il y a quelque chose que je ne comprends pas, tu fais le replace, mais la
valeur est saisie après ?
Il faut que tu fasses le replace après le inputbox.

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
heidy
ha c'est bon!!!!
merci beaucoup, c'est vrai, c'est logique
--
heidy



heidy wrote:
ça marche toujours pas, la fonction a l'air de marcher mais après ça
fait un débogage, quand le calcul commence.
ou sinon si tu veux je te fais voir le début de mon module!?!

Dim Tt1p, Tt2p, M1p, M2p, Ttp
Tt1p = Replace(Tt1p, ".", ",")
Tt2p = Replace(Tt2p, ".", ",")
Ttp = Replace(Ttp, ".", ",")
M1p = Replace(M1p, ".", ",")
M2p = Replace(M2p, ".", ",")

'PETIT DIFFUSEUR
MsgBox ("Petit diffuseur")
M1p = InputBox("saisir la masse des appareils à 1/3 de la durée de
fonctionnement")
Tt1p = InputBox("saisir son Temps")
M2p = InputBox("saisir la masse des appareils à 2/3 de la durée de
fonctionnement")
Tt2p = InputBox("saisir son Temps")
Ttp = Tt2p - Tt1p
MsgBox ("Le temps total pour petit diffuseur est de " & Ttp)

c'est à l'avant dernière ligne qu'il y a le débogage
merci


Il y a quelque chose que je ne comprends pas, tu fais le replace, mais la
valeur est saisie après ?
Il faut que tu fasses le replace après le inputbox.

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr