Format € (Euro) sur une MsgBox [Résolu]

[SeaWolf601]

Bonjour à tous

Et au passage tous mes voeux pour 2008.

Alors voila mon soucis.
Sur un formulaire dédié à de la comptabilité.
j'ai crée une commande pour effacer une opération sélectionnée.
et bien entendu, une boite de dialogue (MsgBox) qui demande la confirmation avant d'effacer.
Hors sur cette MsgBox, je fais apparaitre les détails de la ligne en question.
(la somme, la date, etc...)
Et j'ai un soucis pour que la somme apparaisse sous le format €.

ma somme est par exemple de 100,01 €
et sur la MsgBox le message fait apparaitre "100 €".
J'ai conscience que la fonction Format() est ma solution, mais je trouve pas la syntaxe qui me donnerais mes 2 chiffres après la virgule.

voila le code que j'utilise actuellement :

Code :

1
2
3
MsgBox("ATTENTION !!! Vous etes sur le point de supprimer cette Opération." & Chr(13) & Chr(13) 
& Me.DateOP & " " & Format(Me.Somme, "#,## €") & " " & Me.DebCred & " " & Me.Mode & " " 
& Me.Designation, vbOKCancel + vbCritical, "Suppression")

Si quelqu'un a une idée .... je suis preneur.

Merci

[philben]

bonjour,

utiliser "#,00" par exemple. voir aide d'access sur la fonction Format :

Formats numériques définis par l'utilisateur (fonction Format)

Philippe

[SeaWolf601]

Envoyé par philben

utiliser "#,00" par exemple. voir aide d'access sur la fonction Format :

Négatif,

J'aurai du préciser que j'avais essayé, mais que ce soit "#,00" ou "#,00 €", cela m'affiche toujours "100" ou "100 €" sur ma satanée MsgBox, pas moyen d'avoir les décimales.

J'ai essayé aussi "#,##".... même combat.

[SeaWolf601]

J'ai trouvé !!!!

Pour ceux que ça intéresse, la réponse est :
"###0.00 €"

donc :

Code :

Format(Me.Somme, "###0.00 €")

Renvoi bien des sommes telles que :

100,01 €
1000,98 €
etc...