Voir aussi
Des chiffres en lettres
Comment convertir unesomme écrite en lettres en chiffres ?
Cette fonction transforme les entiers et les décimales en lettres

Function chiffrelettre(s) ' Dans le message de Costa

Dim a As Variant, gros As Variant
a = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
"huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix sept", _
"dix huit", "dix neuf", "vingt", "vingt et un", "vingt deux", "vingt trois", "vingt quatre", _
"vingt cinq", "vingt six", "vingt sept", "vingt huit", "vingt neuf", "trente", "trente et un", _
"trente deux", "trente trois", "trente quatre", "trente cinq", "trente six", "trente sept", _
"trente huit", "trente neuf", "quarante", "quarante et un", "quarante deux", "quarante trois", _
"quarante quatre", "quarante cinq", "quarante six", "quarante sept", "quarante huit", _
"quarante neuf", "cinquante", "cinquante et un", "cinquante deux", "cinquante trois", _
"cinquante quatre", "cinquante cinq", "cinquante six", "cinquante sept", "cinquante huit", _
"cinquante neuf", "soixante", "soixante et un", "soixante deux", "soixante trois", _
"soixante quatre", "soixante cinq", "soixante six", "soixante sept", "soixante huit", _
"soixante neuf", "soixante dix", "soixante et onze", "soixante douze", "soixante treize", _
"soixante quatorze", "soixante quinze", "soixante seize", "soixante dix sept", _
"soixante dix huit", "soixante dix neuf", "quatre-vingts", "quatre-vingt un", _
"quatre-vingt deux", "quatre-vingt trois", "quatre-vingt quatre", "quatre-vingt cinq", _
"quatre-vingt six", "quatre-vingt sept", "quatre-vingt huit", "quatre-vingt neuf", _
"quatre-vingt dix", "quatre-vingt onze", "quatre-vingt douze", "quatre-vingt treize", _
"quatre-vingt quatorze", "quatre-vingt quinze", "quatre-vingt seize", "quatre-vingt dix sept", _
"quatre-vingt dix huit", "quatre-vingt dix neuf")
gros = Array("", "billions", "milliards", "millions", "mille", "Euros", "billion", _
"milliard", "million", "mille", "Euro")
sp = Space(1)
chaine = "00000000000000"
centime = s * 100 - (Int(s) * 100)
s = Str(Int(s)): lg = Len(s) - 1: s = Right(s, lg): lg = Len(s)
If lg < 15 Then chaine = Mid(chaine, 1, (15 - lg)) Else chaine = ""
s = chaine + s
'billions au centaines
gp = 1
For k = 1 To 5
x = Mid(s, gp, 1): c = a(Val(x))
x = Mid(s, gp + 1, 2): d = a(Val(x))
If k = 5 Then
If t2 <> "" And c & d = "" Then mydz = "Euros" & sp: GoTo fin
If t <> "" And c = "" And d = "un" Then mydz = "un Euros" & sp: GoTo fin
If t <> "" And t2 = "" And c & d = "" Then mydz = "d'Euros" & sp: GoTo fin
If t & c & d = "" Then myct = "": mydz = "": GoTo fin
End If
If c & d = "" Then GoTo fin
If d = "" And c <> "" And c <> "un" Then mydz = c & sp & "cents " & gros(k) & sp: GoTo fin
If d = "" And c = "un" Then mydz = "cent " & gros(k) & sp: GoTo fin
If d = "un" And c = "" Then myct = IIf(k = 4, gros(k) & sp, "un " & gros(k + 5) & sp): GoTo fin
If d <> "" And c = "un" Then mydz = "cent" & sp
If d <> "" And c <> "" And c <> "un" Then mydz = c & sp & "cent" + sp
myct = d & sp & gros(k) & sp
fin:
t2 = mydz & myct
t = t & mydz & myct
mydz = "": myct = ""
gp = gp + 3
Next
d = a(centime)
If t <> "" Then myct = IIf(centime = 1, " centime", " centimes")
If t = "" Then myct = IIf(centime = 1, " centime d'Euro", " centimes d'Euro")
If centime = 0 Then d = "": myct = ""
chiffrelettre = t & d & myct
End Function

========================================================

Cette fonction transforme seulement les entiers en lettres et les décimales demeurent en nombre
des exemples de syntaxes à la fin de la fonction ....

Function NumText(Nombre As Currency, Optional Unité As String, _
Optional SousUnité As String, Optional no_chiffres As Integer, _
Optional Separateur As String) As String
Dim PartieEntière As Currency, PartieDécimal As Currency
Dim TxtEntier As String, TxtDécimal As String
PartieEntière = Int(Nombre)
TxtEntier = NumTextEntier(PartieEntière)
If no_chiffres > 0 Then
PartieDécimal = (Nombre - PartieEntière) * 10 ^ no_chiffres
TxtDécimal = Format(PartieDécimal, String(no_chiffres, "0"))
End If
NumText = TxtEntier & Unité & Separateur & TxtDécimal & " " & SousUnité
End Function
'-----------------------------------------------------
Function NumTextEntier(ByVal Entier As Currency) As String
Dim no_Classe As Integer, Classe As Integer
If Entier = 0 Then
NumTextEntier = "Zéro "
Else
While Entier > 0
Classe = Entier - Int(Entier / 1000) * 1000
NumTextEntier = TxtClasse(Classe, no_Classe) & NumTextEntier
no_Classe = no_Classe + 1
Entier = Int(Entier / 1000)
Wend
End If
End Function
'-----------------------------------------------------
Function TxtClasse(Classe As Integer, no_Classe As Integer) As String
Dim Centaine As Integer, Dizaine As Integer, Unité As Integer, Unités2Chiffres As Integer
Dim TxtCentaines As String, TxtDizaines As String, TxtUnités As String
Dim TClasses As Variant, Tdizaines As Variant, TUnités As Variant
TClasses = Array("", "mille", "million", "milliard", "billion")
Tdizaines = Array("", "", "vingt", "trente", "quarante", "cinquante", _
"soixante", "soixante", "quatre-vingt", "quatre-vingt")
TUnités = Array("", "un", "deux", "trois", "quatre", "cinq", "six", _
"sept", "huit", "neuf", "dix", "onze", "douze", "treize", _
"quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf")
If Classe = 0 Then Exit Function
' Pas de un pour mille
If Classe = 1 And no_Classe = 1 Then
TxtClasse = "mille "
Exit Function
End If

Centaine = Classe \ 100
Unités2Chiffres = Classe Mod 100
Dizaine = Unités2Chiffres \ 10
Unité = Unités2Chiffres Mod 10
' Les centaines -----
If Centaine = 1 Then
TxtCentaines = "cent "
ElseIf Centaine > 1 Then
TxtCentaines = TUnités(Centaine) & " cent" & IIf(Unités2Chiffres > 0, " ", "s ")
End If
' Les dizaines ------
TxtDizaines = Tdizaines(Dizaine)
If Unité = 1 And Dizaine > 1 And Dizaine < 8 Then
TxtDizaines = TxtDizaines & "-et"
End If
If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then
Unité = Unité + 10: Dizaine = 0
End If
TxtDizaines = TxtDizaines & IIf(Unités2Chiffres = 80, "s", "")
If Unités2Chiffres > 19 And Unité > 0 Then
TxtDizaines = TxtDizaines & "-"
ElseIf Dizaine > 0 Then
TxtDizaines = TxtDizaines & " "
End If
' Les unités -------- Espace si unité > 0
TxtUnités = TUnités(Unité) & IIf(Unité > 0, " ", "")
' La classe --------- un s sauf pour mille
TxtClasse = TClasses(no_Classe) & IIf(no_Classe > 1 And _
Classe > 1, "s", "") & IIf(no_Classe > 0, " ", "")
' Résultat ----------
TxtClasse = TxtCentaines & TxtDizaines & TxtUnités & TxtClasse
End Function
'-----------------------------------------------------

Sub Exemple()

' "deux cent cinquante-six mille trois cent vingt-quatre"
MsgBox NumText(256324)

'"quatre cent trente francs et 50 centimes"
MsgBox NumText(1430569125.5, "Dollars", "cents", 2, " et ")

'
MsgBox NumText(430.5, "francs", "centimes", 2, " et ")

'"quatre cent trente francs 50 centimes"
MsgBox NumText(430.5, "francs", "centimes", 2, " ")

End Sub
'-----------------------------------------------------


Dans une cellule : =NumText(B2;;;2;"et ")

Le classeur exemple associé fait exactement l'inverse : il transforme un nombre en lettres.

Cette astuce est illustrée dans ce classeur exemple :
Warning: mysql_result() [function.mysql-result]: Unable to jump to row 0 on MySQL result index 31 in /home/misange/domains/excelabo.net/public_html/include/headexcel.php on line 232

horairesmagasin (téléchargé fois)
Denis Michon,
Ajouté ou modifié le 05/05/2007 (N°1824)
Arrondir à 5 centimes
Comment arrondir une somme aux 5 centimes les plus proches ?
=0,05*ARRONDI(A1/0,05;0)

la meme pour arrondir aux 0,25
=0,25*ARRONDI(A1/0,25;0)

la même pour arrondir aux 0,5
=0,5*ARRONDI(A1/0,5;0)

formule générale :
=(1/n)*ARRONDI(A1/(1/n);0)
ChrisV,
Ajouté ou modifié le 06/08/2004 (N°1469)
Pas d'affichage de l'€
En arial, le sigle € apparaît dans la cellule active en haut de la page, mais pas dans les autres cellules de format monétaire où l'on a choisi l'euro. A la place, j'ai une barre verticale. En revanche, quand je passe la feuille de calcul en Arial CS, tout se normalise.
Si tu as une barre verticale à la place du symbole de l'euro, et que tu parles
bien de ce que tu vois dans Excel, c'est sans doute parce que ton facteur de
zoom est inférieur à 80% (je crois). Règle le zoom de la feuille à 80 ou 85% et
l'affichage devrait se rétablir.
Frédéric Sigonneau, (N°671)
Windows update
Y a-t-il des mises à jours disponibles pour l'euro ?
Il y a une mise à jour de windows pour l'euro disponible ici :

http://windowsupdate.microsoft.com
Microsoft, (N°670)
Voir le symbole euro dans excel
Comment faire apparaitre le symbole euro dans excel ?
Soit tu te le configures dans les paramètres régionaux de Windows (onglet
Nombre) : dans ce cas il te suffira de cliquer sur l'icône de format Monétaire pour l'avoir par défaut.
Soit tu te crées un format personnalisé avec du genre # ##0.00" €"
(le symbole euro c'est alt+0128) et tu appliques ensuite ça avec format Cellule [Nombre]
Catherine et Sainte Zaza, (N°669)
Somme de francs et d'euros
J'ai besoin de faire des sommes des dépenses entrées dans une colonne sauf que certaines sont en francs et d'autres en euros...
Function SommeEuroFranc(x As Range) As Double
Application.Volatile
total = 0
For Each cel In x.Cells
If InStr(cel.NumberFormat, "€") > 0 Then
total = total + cel.Value * 6.55957
Else
total = total + cel.Value
End If
Next
SommeEuroFranc = total
End Function
Laurent Mortézai, (N°668)
Patch euro
Je voudrais mettre une cellule au format monetaire de l'euro mais celui-ci ne figure pas de la liste des devises, Comment Faire ? existe til un patch, une macro ... ?
Oui, il existe chez Microsoft, la possibilité d'insérer un bouton à la barre
d'outils "mise en forme".
Va faire un tour à l'adresse suivante :
Patch euro
Fabien, (N°667)
Patch euro pour excel 97
Y a t-il un patch pour Excel 97 permettant de disposer du symbole Euro dans les formats monetaires ? Je suis aujourd'hui en Excel 97 SR2.
Microsoft, (N°666)
L'€ et l'orthographe ...
Faut-il accorder le mot euro ? Et 1.22 € ?
Tous les billets seront identiques et fabriqués par la Banque centrale
européenne. les pièces seront identiques sur une de leurs deux faces et
personnalisées pour chaque pays sur l'autre. Toutes les pièces et les billets
seront utilisables dans l'ensemble des pays ayant adopté l'euro.
C'est la raison pour laquelle le mot euro ne sera pas accordé sur les pièces et
les billets, ce qui aurait conduit à respecter les particularités
orthographiques et grammaticales de toutes les nations participantes. Il est
d'ailleurs à signaler que "euro" est, en français, un nom commun qui
s'accorde de la même façon que le vocable "franc". Les mots " euro " et
"
cent " prennent donc un " s" au pluriel.
Euro est une unité et ne prend donc de majuscule qu'en début de phrase.

On écrira donc 2.35 euros (puisqu'il y a deux unités euro mais en revanche 1.22
euro ne prend pas de s, c'est en effet équivalent à 1 euro et 22 cents. (même
chose avec 1heure 30, sous entendu minutes).
Flo Cabon, (N°665)
Les pages de microsoft sur l'euro
Où trouver des infos sur l'euro chez microsoft ?
Microsoft a développé un site sur l'euro. Il y a un section pour les
différentes versions d'Office. Il faut cliquer sur Applications bureautiques
du côté droit de l'écran.

http://www.microsoft.com/france/euro/default.asp

http://www.microsoft.com/france/euro/etapes/office.asp
Clément Marcotte, (N°664)
Kilos euros
Comment afficher des kilos euros ?
Clic droit sur la cellule, format de cellules/personnalisé, entrer :
# ##0.# " k€"

attention il y a un espace après le dernier # !! le "€" est entré en tapant 0128 tout
en maintenant la touche alt enfoncée. Dans la zone *Type* de Format Cellules/Personnalisé, tout
ce qu'on tape a une signification particulière. Par exemple, l'espace, s'il est situé en fin de
code,
affiche la valeur divisée par mille. C'est une simple convention. Si tu mets deux espaces, tu
divises par un million, etc.
Bernard Mazas, ChrisV, Flo Cabon, (N°663)
Le sigle euro ne s'imprime pas
Sur mon PC , les polices microsoft et imprimantes avec l'euro sont installées. Sous Word, l'euro apparaît bien à l'écran et sur l'imprimante. Sous excel, l'euro apparaît bien à l'écran mais on a un gros point à la place sur l'imprimante. Pourquoi ?
La question et ses variantes est souvent posée, aussi, j'attire votre
attention sur le fait que le sigle € (Euro) n'existe pas à ma connaissance
dans une taille de police inférieure à 8.
Je m'étais fait avoir avec une taille 10 et zoom à 67 % en Times New Roman ;
résolu avec 12 et 67 % (soit 8).
Frédéric Sigonneau, (N°662)
Imprimer le symbole de l'euro €
Je vois bien le symbole de l'euro dans l'aperçu avant impression d'excel mais il ne s'affiche pas ...
Le symbole Euro s'imprime très facilement, mais seulement si
l'imprimante reconnaît la police utilisée. Dans le cas ou l'imprimante
ne reconnaît pas la police utilisée, il faut alors sélectionner dans les
options de l'imprimante, le mode d'impression en caractères graphiques
bitmap).

Le processus à mettre en oeuvre dépend de l'imprimante ( voici un exemple
pour HP laserjet 4 )

Dans le menu Démarrer/paramètre/imprimantes Cliquer deux fois sur votre
imprimante ( si vous en avez plusieurs, sélectionnez celle que vous
utilisez) Dans le menu Fichier, sélectionnez propriété Sélectionnez
l'onglet polices et choisissez "Téléchargez les polices true type en
tant que polices logicielles bitmap" puis "ok"

Quelles sont les polices qui possèdent le symbole Euro sous Windows 95 ?
Si vous n'avez pas installé la version corrective Euro, effectuez les
manipulations indiqués dans la question "Comment afficher le symbole de
l'Euro, sachant que mon système d'exploitation est Windows 95". Si vous
avez installé la version corrective Euro, les 9 polices suivantes
permettent l'utilisation du symbole Euro quelle que soit l'application
utilisée sous Windows 95 (en appuyant simultanément sur Alt Gr et e ):
Arial, Arial Black, Comic Sans MS, Courier New, Impact, MS Sans Serif,
Tahoma, Times New Roman, Verdana.
transmis par Monique.
Microsoft, (N°661)
Format personnalisé pour l'euro
Mon tableau, comporte une colonne qui contient des valeurs monétaires. Je voudrais les afficher avec le symbole EURO avec un format perso. Comment faire ?
Format cellules - Personnaliser - Style : # ##0,00" E" (E étant le symbole
euro, €, à entrer avec Alt-Gr + E out alt0128).
Petite touche perso : chiffre en bleu et italique pour éviter de se tromper... ;o)
D@niel, (N°660)
Chiffres en lettres
Je voudrais convertir des montants en euros saisis en chiffre en euros. Existe-t-il une macro ?
Tu peux télécharger ici
une macro qui te permet de transformet
2 282,27 en deux mille deux cent quatre vingt deux euros et 27 centimes.

Cette astuce est illustrée dans ce classeur exemple :
bj-chiffres-en-lettres (téléchargé 13128 fois)
Bruno Jeune, (N°659)
La Charte graphique de l'euro
Où trouver la charte graphique de l'euro ?
Flo Cabon, (N°658)
Arrondir au centième d'euro
Je convertis des francs en euros mais comment arrondir ces valeurs suivant les critéres définis par l'Europe à savoir : à partir du millième >= 0,005 arrondir au cent supérieur et <0,005 arrondir au cent inférieur.
Essaye la fonction ARRONDI. Soit = ARRONDI(x * y;2) "2" pour arrondir la
deuxième décimale.
D@niel, (N°657)
Tableau d'amortissement de prêt
Je voudrais calculer les montants des remboursements et le coût total d'un emprunt.
Christian Froeliger nous a préparé un tableau d'amortissement classique certes mais fort
bien fait, clair et joli. très utile en tous cas

Cette astuce est illustrée dans ce classeur exemple :
cf-emprunts (téléchargé 11728 fois)
CFroFro, (N°656)