Précision d'affichage aprés lavirgule

Le
zimou
Bonjour,
j'ai fais cette macro pour afficher le rsultat de calcul dans une
MsgBox, le code est le suivant:
MsgBox " Bonjour" & Chr(10) & "Veuillez trouver ci dessous les donnes
statistiques pour le produits Amoxypen 1g injectable." & Chr(10) & "1-
Le nombre totale des lots = " & Worksheets(2).[H14] & Chr(10) & "2- La
moyenne des lots = " & Worksheets(2).[H13] _
& Chr(10) & "3- Ecart type = " & Worksheets(2).[b15]

dans le mssage j'ai mes valeurs mais avec une prcision de 10 ou 12
chiffres aprs la virgule, moi je n'ai besoin que de 3 chiffres.
je demande la contribution des professionnels de la programmation pour
m'aider rsoudre ce problme.
et si ce n'est pas trop demander: comment je peux aggrmenter mon
MsgBox c d :colorer le fond, mettre du gras, les couleurs pour le
text et pourquoi pas afficher une image comme fond.
Merci d'avance.
amicalement
Zimou.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #4758771
Bonsour® zimou avec ferveur ;o))) vous nous disiez :

Bonjour,
j'ai fais cette macro pour afficher le résultat de calcul dans une
MsgBox, le code est le suivant:
MsgBox " Bonjour" & Chr(10) & "Veuillez trouver ci dessous les données
statistiques pour le produits Amoxypen 1g injectable." & Chr(10) & "1-
Le nombre totale des lots = " & Worksheets(2).[H14] & Chr(10) & "2- La
moyenne des lots = " & Worksheets(2).[H13] _
& Chr(10) & "3- Ecart type = " & Worksheets(2).[b15]
dans le méssage j'ai mes valeurs mais avec une précision de 10 ou 12
chiffres aprés la virgule, moi je n'ai besoin que de 3 chiffres.
je demande la contribution des professionnels de la programmation pour
m'aider à résoudre ce problème.


MsgBox " Bonjour" & Chr(10) & "Veuillez trouver ci dessous les données
statistiques pour le produits Amoxypen 1g injectable." _
& Chr(10) & "1-Le nombre totale des lots = " & Format(Worksheets(2).[H14] ,"0")
_
& Chr(10) & "2- Lamoyenne des lots = " & Format(Worksheets(2).[H13] ,"0.000") _
& Chr(10) & "3- Ecart type = " & Format(Worksheets(2).[b15],"0.000")

et si ce n'est pas trop demander: comment je peux aggrémenter mon
MsgBox c à d :colorer le fond, mettre du gras, les couleurs pour le
text et pourquoi pas afficher une image comme fond.


:-((( ce n'est pas possible dans un MsgBox standard ....
mais cela est faisable dans un Userform ;o)))
http://www.excelabo.net/moteurs/compteclic.php?nom=mp-msgboxplus



--
--
@+
;o)))

zimou
Le #4758761
On 29 août, 11:53, "Modeste"
Bonsour® zimou avec ferveur ;o))) vous nous disiez :

Bonjour,
j'ai fais cette macro pour afficher le résultat de calcul dans une
MsgBox, le code est le suivant:
MsgBox " Bonjour" & Chr(10) & "Veuillez trouver ci dessous les données
statistiques pour le produits Amoxypen 1g injectable." & Chr(10) & "1-
Le nombre totale des lots = " & Worksheets(2).[H14] & Chr(10) & "2- La
moyenne des lots = " & Worksheets(2).[H13] _
& Chr(10) & "3- Ecart type = " & Worksheets(2).[b15]
dans le méssage j'ai mes valeurs mais avec une précision de 10 ou 12
chiffres aprés la virgule, moi je n'ai besoin que de 3 chiffres.
je demande la contribution des professionnels de la programmation pour
m'aider à résoudre ce problème.


MsgBox " Bonjour" & Chr(10) & "Veuillez trouver ci dessous les données
statistiques pour le produits Amoxypen 1g injectable." _
& Chr(10) & "1-Le nombre totale des lots = " & Format(Worksheets(2).[H1 4] ,"0")
_
& Chr(10) & "2- Lamoyenne des lots = " & Format(Worksheets(2).[H13] ,"0 .000") _
& Chr(10) & "3- Ecart type = " & Format(Worksheets(2).[b15],"0.000")

et si ce n'est pas trop demander: comment je peux aggrémenter mon
MsgBox c à d :colorer le fond, mettre du gras, les couleurs pour le
text et pourquoi pas afficher une image comme fond.


:-((( ce n'est pas possible dans un MsgBox standard ....
mais cela est faisable dans un Userform ;o)))http://www.excelabo.net/mot eurs/compteclic.php?nom=mp-msgboxplus

--
--
@+
;o)))


Merci Modeste,
c'est rapide,
simple et efficace.
merci encore
amicalement
Zimou


Publicité
Poster une réponse
Anonyme