@mestutosexcel: 🔤 Tu veux convertir automatiquement des chiffres en lettres dans Excel grâce au VBA ? 💡 Mes Tutos Excel te montrent comment créer ta propre fonction personnalisée pour afficher un montant en toutes lettres 🧠 Le principe Excel ne propose pas nativement de fonction pour transformer un nombre en lettres. 👉 Avec le VBA, tu peux créer ta propre fonction 👉 Et l’utiliser ensuite comme une formule classique dans Excel 😍 💻 Comment faire ➡️ Appuie sur **ALT + F11** pour ouvrir l’éditeur VBA ➡️ Clique sur **Insertion** puis sur **Module** ➡️ Colle ce code : ```vb Function NombreEnLettres(ByVal Montant As Double) As String Dim Entier As Long Dim Decimales As Long Dim Resultat As String Entier = Int(Montant) Decimales = Round((Montant - Entier) * 100, 0) Resultat = ConvertirNombre(Entier) If Entier <= 1 Then Resultat = Resultat & " euro" Else Resultat = Resultat & " euros" End If If Decimales > 0 Then Resultat = Resultat & " et " & ConvertirNombre(Decimales) If Decimales <= 1 Then Resultat = Resultat & " centime" Else Resultat = Resultat & " centimes" End If End If NombreEnLettres = Application.WorksheetFunction.Proper(Resultat) End Function Private Function ConvertirNombre(ByVal n As Long) As String Dim Unites As Variant Dim Dizaines As Variant Dim Texte As String Unites = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", _ "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", _ "dix-sept", "dix-huit", "dix-neuf") Dizaines = Array("", "", "vingt", "trente", "quarante", "cinquante", "soixante", _ "soixante", "quatre-vingt", "quatre-vingt") If n = 0 Then ConvertirNombre = "zéro" Exit Function End If If n >= 1000000 Then If n \ 1000000 = 1 Then Texte = "un million" Else Texte = ConvertirNombre(n \ 1000000) & " millions" End If If n Mod 1000000 > 0 Then Texte = Texte & " " & ConvertirNombre(n Mod 1000000) End If ConvertirNombre = Texte Exit Function End If If n >= 1000 Then If n \ 1000 = 1 Then Texte = "mille" Else Texte = ConvertirNombre(n \ 1000) & " mille" End If If n Mod 1000 > 0 Then Texte = Texte & " " & ConvertirNombre(n Mod 1000) End If ConvertirNombre = Texte Exit Function End If If n >= 100 Then If n \ 100 = 1 Then Texte = "cent" Else Texte = Unites(n \ 100) & " cent" End If If n Mod 100 = 0 And n > 100 And n \ 100 > 1 Then Texte = Texte & "s" ElseIf n Mod 100 > 0 Then Texte = Texte & " " & ConvertirNombre(n Mod 100) End If ConvertirNombre = Texte Exit Function End If If n < 20 Then ConvertirNombre = Unites(n) Exit Function End If If n < 70 Then Texte = Dizaines(n \ 10) If n Mod 10 = 1 And n \ 10 <> 8 Then Texte = Texte & " et un" ElseIf n Mod 10 > 0 Then Texte = Texte & "-" & Unites(n Mod 10) End If ConvertirNombre = Texte Exit Function End If If n < 80 Then If n = 71 Then ConvertirNombre = "soixante et onze" Else ConvertirNombre = "soixante-" & ConvertirNombre(n - 60) End If Exit Function End If If n < 100 Then If n = 80 Then ConvertirNombre = "quatre-vingts" Else ConvertirNombre = "quatre-vingt-" & ConvertirNombre(n - 80) End If Exit Function End If End Function ``` ➡️ Ferme l’éditeur VBA ➡️ Dans Excel, utilise ensuite la formule : **=NombreEnLettres(A1)** ✅ 🎯 Résultat ✅ Tes nombres s’affichent en lettres automatique

mestutosexcel

Open In TikTok:

Region: FR

Sunday 03 May 2026 16:09:41 GMT