Forums XLPages

Excel & VBA Espace Débutants [résolu] Format monétaire dans MsGbox

Format monétaire dans MsGbox
#1
Débutant
Débutant XLPages

Inscription: 14/04/2013

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 28-04-2013 16h08
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
Hors Ligne
 Rapport   Haut 

Re: Format monétaire dans MsGbox
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 28-04-2013 16h43

Bonjour Débutant, le Forum,

 

En théorie, tu devrais pouvoir essayer avec le code suivant :

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 UCase(GA) = "BAR" Then
        vstockA = Cells(5, 23)
        vstockO = Cells(5, 24)
        MsgBox ("Valeur Stock Actuel      : " & vEuro(vstockA) & Chr(10) & "Valeur Stock Optimale : " & vEuro(vstockO))
    End If
End Sub

Function vEuro(v As Double) As String
    vEuro = Format(v, "0.00 €")
End Function

Nb: j'en ai profité pour simplifier ton test "IF GA = ..."

 

Par ailleurs, je te remercie de bien vouloir consulter cette FAQ : insérer du Code VBA proprement dans le forum.

 

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Format monétaire dans MsGbox
#3
Débutant
Débutant XLPages

Inscription: 14/04/2013

Messages: 9

Système d'exploitation:
PC
Version Excel utilisée:
2007, 2010
Posté le : 28-04-2013 17h55
Bonjour myDearFriend,

Un tout tout grand merci pour ta réponse rapide. Cela fonctionne à merveille.
Je sais que tout cela vous parait simple, mais pour quelqu'un comme moi qui débute dans le vba sans autre support que les forums, ce n'est pas évident. Mais bon, c'est comme çà qu'on apprend.

Encore merci, et pour la prochaine fois, je mettrai le code proprement.

Bien à vous
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes