La fonction `FormatNumber` en VBA est utilisée pour formater des valeurs numériques en chaînes de caractères, permettant de contrôler l’affichage des décimales, l’utilisation de séparateurs de milliers, et autres options similaires. Voici comment vous pouvez utiliser cette fonction :
Syntaxe
FormatNumber(Expression, [NumDigitsAfterDecimal], [IncludeLeadingDigit], [UseParensForNegativeNumbers], [GroupDigits])
Paramètres
- Expression : Requis. La valeur numérique que vous souhaitez formater.
- NumDigitsAfterDecimal : Facultatif. Indique le nombre de chiffres à afficher après la virgule. La valeur par défaut est -1, qui utilise le paramètre régional du système.
- IncludeLeadingDigit : Facultatif. Utilisé pour déterminer si un zéro est affiché devant les nombres fractionnaires. Utiliser `vbTristateTrue`, `vbTristateFalse`, ou `vbTristateUseDefault`.
- UseParensForNegativeNumbers : Facultatif. Indique si les nombres négatifs doivent être affichés entre parenthèses. Utiliser `vbTristateTrue`, `vbTristateFalse`, ou `vbTristateUseDefault`.
- GroupDigits : Facultatif. Indique si vous souhaitez utiliser des séparateurs de milliers. Utiliser `vbTristateTrue`, `vbTristateFalse`, ou `vbTristateUseDefault`.
Exemple d’utilisation
Sub ExampleFormatNumber()
Dim myNumber As Double
myNumber = 1234567.89123
Dim formattedNumber As String
formattedNumber = FormatNumber(myNumber, 2, vbTrue, vbFalse, vbTrue)
MsgBox "Le nombre formaté est: " & formattedNumber
End Sub
Explications
- Dans l’exemple ci-dessus, `1234567.89123` est le nombre à formater.
- `2` spécifie que deux décimales seront montrées.
- `vbTrue` pour `IncludeLeadingDigit` signifie qu’un zéro sera précédé de fractions inférieures à 1.
- `vbFalse` pour `UseParensForNegativeNumbers` signifie que les nombres négatifs ne seront pas entre parenthèses.
- `vbTrue` pour `GroupDigits` signifie que le séparateur des milliers sera utilisé.
Assurez-vous de tester cette fonction dans l’environnement VBA pour vérifier qu’elle répond à vos besoins spécifiques en matière de formatage.
Unlock Your Potential
Excel
Access
Power BI
