Problème de décimales dans msgbox

bonjour,

j'utilise excel 2013. J'ai un bouton qui affiche un msgox récapitulant certaines valeurs chiffrées d'une feuille.

Mon problème, c'est que le chiffre affiché comporte 7 ou 8 décimales après la virgule.

Quelqu'un a t-il la solution ?

Merci

Bonjour,

Voici un code pour afficher le résultat de la cellle A2.

Le nombre de zéro après le point détermine le nombre de chiffre après la virgule

0.000

Sub afficher()
Dim chiffre

chiffre = Format(Range("a2"), "0,000")
MsgBox (chiffre)
End Sub

A adapter

merci de la réponse mais je n'arrive pas à l'adapter à mon cas, car les données figurent sur une autre feuille et que mon msgbox est du type :

sub xxxxxxxxxxxxxxx()

With Sheets("données")

MsgBox "_____________________________________________________________" & Chr(10) & Chr(10) & _

"mois de " & .Range("c6") & Chr(10) & _

"_____________________________________________________________" & Chr(10) & Chr(10) & _

.Range("a8") & " : " & " : " & .Range("c8") & Chr(10) & _

.Range("a10") & " : " & .Range("c10") & Chr(10) & _

.Range("a16") & " : " & .Range("c16") & " litres à l'heure" & Chr(10)

End With

end sub

Bonjour

Et comme ceci, à toi de changer le type de format souhaité.

Sub MSG_BOX()
Dim a
Dim b
Dim c
Dim d
Dim e
Dim f
Dim g

With Sheets("données")
a = Format(Range("c6"), "0.000")
b = Format(Range("a8"), "0.000")
c = Format(Range("c8"), "0.000")
d = Format(Range("a10"), "0.000")
e = Format(Range("c10"), "0.000")
f = Format(Range("a16"), "0.000")
g = Format(Range("c16"), "0.000")

MsgBox "_____________________________________________________________" & Chr(10) & Chr(10) & _
"mois de " & a & Chr(10) & _
"_____________________________________________________________" & Chr(10) & Chr(10) & _
b & " : " & " : " & c & Chr(10) & _
d & " : " & e & Chr(10) & _
f & " : " & g & " litres à l'heure" & Chr(10)
End With

End Sub

merci de t'être penché sur le problème. J'ai toujours un soucis c'est que

la msgbox s'ouvre mais ne va plus me récuperer les valeurs sur la feuille ("données") ?????????????

Surprenant ? car j'ai testé sur un fichier excel et cela fonctionne.

Pouvez-vous nous mettre votre fichier à disposition ?

j'ai trouvé le pourquoi. J'ajouté .value après chaque cellule concernée et ça marche.

En tous cas, merci beaucoup de votre aide