Rapport de message :*
 

Format monétaire dans MsGbox

Titre du sujet : Format monétaire dans MsGbox
par Débutant le 28/04/2013 16:08:10

Bonjour le forum,

J'affiche à la demande, pour un acheteur via une msgbox, la valeur du stock, et la valeur du stock optimal. Seulement, ces valeurs s'affichent en format standart, alors que je souhaiterais qu'elles s'affichent en €.

Malgré mes recheches, je ne trouve rien. Comment faire ????

Merci de me guider.

Voici mon code :

Private Sub CommandButton7_Click()
Dim GA As String
Dim vstockA As Double
Dim vstockO As Double
GA = InputBox("Entrez le groupe acheteur", "Introduction du groupe acheteur")
If GA = "BAR" Or GA = "bar" Or GA = "Bar" Then
vstockA = Cells(5, 23)
vstockO = Cells(5, 24)
MsgBox ("Valeur Stock Actuel      : " & vstockA & Chr(10) & "Valeur Stock Optimale : " & vstockO)
End If
End Sub