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 |
Forums