Renvoi de texte comme valeur monétaire

oli294 · 24 Février 2013

Bonjour à tous,

Question très simple mais je chercher sur internet depuis pràs de 30 minutes et toujours rien trouvé.

Pour rendre simple, voila mon questionnement:
Soit, sur un chiffrier excel, la cellule A1 à la valeur de 12,4 sous forme monétaire donc 12,40 $.
Je veux faire une macro VBA afin de ce créé une msgbox qui affiche : 12,40 $.

Le problème est que la valeur renvoyé est de 12,4. Il n'y a donc pas de signes de $ et j'aimerais savoir comment je peux faire avec VBA afin de classifier ma variable (ou ma valeur) comme étant une valeur financière.

Voici mon code simplifié :

Sub test()

Dim test As String
allo = Range("A1").Value
MsgBox allo
End Sub

Merci à tous et bon dimanche!!

oli294 · 24 Février 2013

Re : Renvoi de texte comme valeur monétaire

Finalement j'ai trouvé,

Il fallait bien que je post sur le forum pour avoir une idée!!!

Sub test()

Dim test As Currency

allo = FormatCurrency(Range("G119").Value)

MsgBox allo

End Sub

kjin · 24 Février 2013

Re : Renvoi de texte comme valeur monétaire

bonsoir,

Code:

Sub test()
Dim allo As String
allo = Format([A1], "0.00 $")
MsgBox allo
[B1] = CCur([A1]) 'renvoie la valeur au format monétaire par défaut
End Sub

A+
kjin

Renvoi de texte comme valeur monétaire

oli294

XLDnaute Nouveau

oli294

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

Discussions similaires