Table des matières:
Vidéo: Afficher les zéro devant les nombres Excel 2025
Si vous avez déjà eu besoin d'afficher un nombre écrit en tant que texte, vous avez probablement découvert qu'Excel n'offre pas une telle fonction. Lorsque Excel ne parvient pas à livrer, il est souvent possible de corriger la lacune en utilisant VBA. Voici une fonction VBA, nommée SPELLDOLLARS, que vous pouvez utiliser dans les formules de feuille de calcul.
Exemples Excel
Voici quelques exemples de SPELLDOLLARS.
Le code VBA
Pour utiliser ce code, appuyez sur Alt + F11 pour activer Visual Basic Editor. Choisissez ensuite Insérer → Module pour insérer un nouveau module VBA. Copiez le code et collez-le dans le nouveau module.
Fonction SPELLDOLLARS (cell) As Variant 'Renvoie une valeur, épelée en mots Dim Dollars As String, Cents As String Dim TextLen As Long, Pos Aussi Long Dim Temp Temp Comme Chaîne Dim iHundreds As Long, iTens As Long, iOnes As Long Dim Ones comme Variante, Adolescents comme Variante, Dix Comme Variant Dim Unités (2 à 5) Comme Chaîne Dim bHit Comme Booléen, NegFlag Comme Booléen 'Est-ce un non-nombre ou une cellule vide? If Not IsNumeric (cellule) Ou cell = "" Alors SPELLDOLLARS = CVErr (xlErrValue) Quitter Fonction Fin Si 'Est-ce négatif? Si cellule 15 Alors SPELLDOLLARS = CVErr (xlErrNum) Quitter Fonction Fin Si 'Faire les cents partie Cents = Droite (Dollars, 2) & "/ 100 Dollars" Si cell = Pos - 2 Alors bHit = Faux Si TextLen> = Pos Then iHundreds = Asc (Mid $ (Dollars, TextLen - Pos + 1, 1)) - 48 Si iHundreds> 0 Then Temp = Temp & "" & Ones (iHundreds) & "Cent" bHit = Vrai End If End if iTens = 0 iOnes = 0 Si TextLen> = Pos - 1 Alors iTens = Asc (Mid $ (Dollars, TextLen - Pos + 2, 1)) - 48 End If Si TextLen> = Pos - 2 Then iOnes = Asc (Mid $ (Dollars, TextLen - Pos + 3, 1)) - 48 Fin Si iTens = 1 Puis Temp = Temp & "" & Teens (iOnes) bHit = Vrai Sinon Si iTens> = 2 Puis Temp = Temp & "" & Tens (iTens) bHit = Vrai End If If iOnes> 0 Puis Si iTens> = 2 Then Temp = Temp & "-" Else Temp = Temp & "" Fin Si Temp = Temp & Ones (iOnes) bHit = Vrai Fin Si Fin Si If bHit Et Pos > 3 Puis Temp = Temp & "" & Unités (Pos 3) Fin Si Fin Si Pos Suiv SPELLDOLLARS = Trim (Temp) & "et" & Cents Si NegFlag Puis SPELLDO LLARS = "(" & SPELLDOLLARS & ")" Fonction de fin
