OVH Cloud OVH Cloud

pourcentage avec 2 décimale en vba

11 réponses
Avatar
denis le breton
Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci

10 réponses

1 2
Avatar
RGI
Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci



Avatar
denis le breton
les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci






Avatar
ABED HADDOU
Bonjour * denis *
MsgBox Format(p101, "0.00%")

Cordialement Abed_H



les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci








Avatar
RGI
essaie ceci

Sub essai2()
nb101 = 10
nbtot = 2.256
p101 = nb101 / nbtot * 100
MsgBox Format(p101, "###0.00")
End Sub

salutations
RGI

les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis



Bonjour

tu as regardé du coté de format ?

salutations

RGI


Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci








Avatar
ru-th
Salut

par exemple
p101 = Evaluate("round(" & p101 & ",2)")

a+
rural thierry
"denis le breton" a écrit dans le
message de news:
les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci








Avatar
denis le breton
cela parait plaisant, mais hélas me génère une erreur 2015
soit XlErrValue 2015 #VALUE!
Denis

Salut

par exemple
p101 = Evaluate("round(" & p101 & ",2)")

a+
rural thierry
"denis le breton" a écrit dans le
message de news:
les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci













Avatar
denis le breton
Merci mais hélas j'ai raccourcit l'expression du besoin, en fait j'habille la
variable avec du texte, style :
montexte = " le pourcentage est de " & p101 & "%"
msgbox montexte

et de ce fait le format appliqué au contenu est inopérant, mais surprise en
l'appliquant dans la variable texte cela marche
montexte = "le pourcentager est de : " & Format(p101, "###0.00") & "%" &
vbCrLf
msgbox montexte

Merci de cette réponse


essaie ceci

Sub essai2()
nb101 = 10
nbtot = 2.256
p101 = nb101 / nbtot * 100
MsgBox Format(p101, "###0.00")
End Sub

salutations
RGI

les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis



Bonjour

tu as regardé du coté de format ?

salutations

RGI


Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci











Avatar
ru-th
re-

une histoire de séparateur décimal peut-être ?
p101=Evaluate("round(" & --Application.Substitute(p101, ",", ".") & ",2)")
a+
rural thierry

"denis le breton" a écrit dans le
message de news:
cela parait plaisant, mais hélas me génère une erreur 2015
soit XlErrValue 2015 #VALUE!
Denis

Salut

par exemple
p101 = Evaluate("round(" & p101 & ",2)")

a+
rural thierry
"denis le breton" a écrit dans
le


message de news:
les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par
exemple ?





Merci















Avatar
denis le breton
Merci cher ABED HADDOU, comme répondu à RGI
hélas j'ai raccourcit l'expression du besoin, en fait j'habille la
variable avec du texte, style :
montexte = " le pourcentage est de : " & p101 & "%"
msgbox montexte

et de ce fait le format appliqué au contenu est inopérant, mais surprise en
l'appliquant dans la variable texte cela marche
montexte = "le pourcentage est de : " & Format(p101, "###0.00") & "%" &
vbCrLf
msgbox montexte

Merci de cette réponse
Denis


Bonjour * denis *
MsgBox Format(p101, "0.00%")

Cordialement Abed_H



les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par exemple ?
Merci










Avatar
denis le breton
Au final la réponse de ABED HADDOU et de RGI m'a permis de résoudre le pb
car hélas j'ai raccourcit l'expression du besoin, en fait j'habille la
variable avec du texte, style :
montexte = " le pourcentage est de : " & p101 & "%"
msgbox montexte

et de ce fait le format appliqué au contenu est inopérant, mais surprise en
l'appliquant dans la variable texte cela marche
montexte = "le pourcentage est de : " & Format(p101, "###0.00") & "%" &
vbCrLf
msgbox montexte

Merci de cette réponse



re-

une histoire de séparateur décimal peut-être ?
p101=Evaluate("round(" & --Application.Substitute(p101, ",", ".") & ",2)")
a+
rural thierry

"denis le breton" a écrit dans le
message de news:
cela parait plaisant, mais hélas me génère une erreur 2015
soit XlErrValue 2015 #VALUE!
Denis

Salut

par exemple
p101 = Evaluate("round(" & p101 & ",2)")

a+
rural thierry
"denis le breton" a écrit dans
le


message de news:
les format s'pplique à des cellules
comment appliquer un format à une variable ?
dans les déclarations ? si oui quelle syntaxe car je ne connais pas
Merci
Denis


Bonjour

tu as regardé du coté de format ?

salutations

RGI

Bonjour, me voila de retour, avec un truc tout simple comme d'hab
en VBA je fais le calcul suivant
p101 = nb101 / nbtot * 100
ou nb101 et nbtot sont des entiers
le résultat me donne le pourcentage (oeuf corse),
mais je ne stocke pas cette valeur dans une cellule
ensuite je fais un
msgbox p101
et mon résultat est du style 29,39274...
comment faire pour que l'affichage soit sur 2 décimales par
exemple ?





Merci




















1 2