Comment utiliser la fonction FormatCurrency dans VBA ?

La fonction `FormatCurrency` en VBA est utilisée pour formater une expression numérique en une chaîne représentant une valeur monétaire. Elle applique les paramètres régionaux de votre système pour déterminer le symbole monétaire, le nombre de décimales, etc.

Voici comment vous pouvez utiliser la fonction `FormatCurrency` en VBA :

Sub ExempleFormatCurrency()
    Dim montant As Double
    Dim montantFormatte As String

    ' Assigner une valeur numérique à la variable
    montant = 1234.56

    ' Utiliser FormatCurrency pour formater la valeur monétaire
    ' Les paramètres sont :
    ' FormatCurrency(Expression, [NombreDeDécimales], [MèneParDesZéros], [InclureLeSymboleMonétaire], [UtiliserDesParenthesesPourLesNégatifs])
    montantFormatte = FormatCurrency(montant, 2, vbTrue, vbTrue, vbFalse)

    ' Afficher la valeur formatée
    MsgBox "Montant formaté : " & montantFormatte
End Sub

Paramètres de la fonction `FormatCurrency` :

  • Expression: La valeur numérique que vous souhaitez formater.
  • NombreDeDécimales (facultatif): Nombre de décimales à afficher (par défaut est 2).
  • MèneParDesZéros (facultatif): Booléen pour déterminer si les chiffres à gauche du décimal doivent être remplis avec des zéros. `vbTrue` remplit les champs vides avec des zéros.
  • InclureLeSymboleMonétaire (facultatif): Booléen qui détermine si le symbole monétaire doit être affiché. `vbTrue` l’affiche.
  • UtiliserDesParenthesesPourLesNégatifs (facultatif): Booléen qui détermine si les valeurs négatives doivent être mises entre parenthèses. `vbTrue` le fait.

Remarques :

  • Si vous ne spécifiez pas de paramètres facultatifs, la fonction utilise les paramètres par défaut basés sur vos paramètres régionaux système.
  • Assurez-vous que le type de donnée d’entrée est approprié, généralement `Double` ou `Currency` pour assurer une précision correcte.

Gardez à l’esprit que l’apparence finale dépendra de votre configuration régionale qui définit le symbole monétaire, les séparateurs décimaux, etc.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project