Msgbox - format d'affichage d'une variable

Excel-lent · 26 Septembre 2006

Bonjour,

J'ai inséré ceci dans ma macro :

Dim CaTTC As Long
...
CaTTC = CaTTC + Worksheets("Zozo").Range("B15")
...
MsgBox ("le CA TTC du mois est de " & CaTTC & " €")

Lors de l'affichage, de ma "boite de message", le chiffre est indiqué au format : 0

or je le voudrais au format #.##0,00

Quelqu'un peut me dépanner?

Merci d'avance

Pierrot93 · 26 Septembre 2006

Re : Msgbox - format d'affichage d'une variable

Bonjour Exel lent,

le code ci dessous répondra peut être à ton problème.

MsgBox ("le CA TTC du mois est de " & Format(CaTTC, "#.##0,00") & " €")

Bonne soirée
@+

myDearFriend! · 26 Septembre 2006

Re : Msgbox - format d'affichage d'une variable

Bonsoir Excel-lent, Pierrot93,

Si tu déclares ta variable CaTTC en type "Long" (= entier), tu perdras automatiquement la partie décimale de ta valeur dans cette ligne :

Code:

[SIZE=2]CaTTC = CaTTC + Worksheets("Zozo").Range("B15")[/SIZE]

Pour conserver cette partie décimale, il te faut donc obligatoirement déclarer ta variable dans un type supportant le décimal : Single, Double, Currency ou Decimal.
Le type "Currency" me paraît le plus naturel ici :

Code:

[SIZE=2][COLOR=NAVY]Dim[/COLOR] CaTTC [COLOR=NAVY]As [B]Currency[/B][/COLOR]
...
CaTTC = CaTTC + Worksheets("Zozo").Range("B15")
...
MsgBox ("le CA TTC du mois est de " & Format(CaTTC, "0[COLOR=RED][B].[/B][/COLOR]00") & " €")[/SIZE]

Nb: sauf erreur, pour le format de nombre "0.00", on utilise un point et non une virgule pour la séparation décimale. La virgule étant normalement réservée à la séparation des milliers (format américain dans VBA).

Cordialement,

Excel-lent · 27 Septembre 2006

Re : Msgbox - format d'affichage d'une variable

CA fonctionne du tonnerre.

Merci à vous

Msgbox - format d'affichage d'une variable

Excel-lent

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Excel-lent

XLDnaute Barbatruc

Discussions similaires

Msgbox - format d'affichage d'une variable

Excel-lent

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

myDearFriend!

XLDnaute Barbatruc

Excel-lent

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency