nombre en toutes lettre FR diverse monnaies et autres 7.2

patricktoulon

XLDnaute Barbatruc

• 28 Octobre 2019

• #1

patricktoulon a posté une nouvelle ressource :

somme euro en toutes lettre FR Version2 - convert un nombres en toutes lettres

cette fonction converti n'importe quel nombres en toutes lettres avec la monnaie "Euro" en francais

elle va jusque 999 décilliard
2 chiffres en decimal
utilisation en formule de base

=NblettreFR(A1)

Cliquez pour agrandir...

En savoir plus sur cette ressource...

 

Daniel38

XLDnaute Occasionnel

• 29 Octobre 2019

• #2

Woaw !!! génial Patrick

 

Daniel38

XLDnaute Occasionnel

• 29 Octobre 2019

• #3

Bonjour Patrick
Super fonction mais après essai ça retourne #VALEUR! si on rentre par exemple 188,19 !!!
semble ne pas accepter les centimes

 

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2019

• #4

bonjour Daniel
ok je vais regarder cette coquille

 

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2019

• #5

ben non il y a bien une coquille mais celle que tu dis
il y a juste "centime qui apparaît si tu met xxx ,00
regarde bien si tu a pas buguer en étirant la formule le précédents(1) est la cellule de gauche

 

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2019

• #6

patricktoulon a mis à jour somme euro en toutes lettre FR Version2 avec une nouvelle version :

correction sur la coquille de la chaine ",00" donc aucuns centime

petite correction pour les centime ",00" valant zero donc omis

VB:

Function NblettreFR(chain As String) As String
    Dim t, dixx&, dix&, cxx&, u&, Part, ms, m, Ul, Diz, n&, I&, seg$, cc$, et$, Ss$, R$, md$, euro$, centime
    Ul = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf", "cent ")
    Diz = Array("", "dix", "vingt", "trente", "quarante"...

Cliquez pour agrandir...

Lire la suite de cette mise à jour...

 

Daniel38

XLDnaute Occasionnel

• 29 Octobre 2019

• #7

Oui Patrick
je viens de vérifier sous Excel 2016 si je n'avais pas buguer en étirant la formule
là j'ai testé sous Excel 2007 et c'est pareil toujours le message #VALEUR! si tu rentres un montant avec des centimes d'euro ...

 

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2019

• #8

re
c'est bizarre chez moi non sur 2007,2013,2016

 

patricktoulon

XLDnaute Barbatruc

• 29 Octobre 2019

• #9

j'ai quand meme corriger la coquille 00 centime
attend que cela soit approuvé par la modération et tu aura la mise a jour
pour info

 

Daniel38

XLDnaute Occasionnel

• 29 Octobre 2019

• #10

OK Patrick tout fonctionne !!!
dommage que Centimes s'écrit avec un C majuscule (j'ai corrigé ...)

 

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2019

• #11

re
bon en tout cas ça fonctionne pour toi ?
n'oublie pas de mettre ton C min dans la mise a jour quand elle sera débloquée

 

Daniel38

XLDnaute Occasionnel

• 30 Octobre 2019

• #12

Oui Patrick tout fonctionne au top
Top ta fonction, plus qu'à paramétrer l'imprimante pour remplir les chèques ...
Jub Jub !

 

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2019

• #13

scan un de tes chèque
met le en fond d’écran excel
arrange tes cellules pa rapport a lui
vire le fond d’écran
règle le format en cm dans les propriétés d'imprimante(personalisé)
enregistre
voila ta ta feuille excel chéquier

 

Daniel38

XLDnaute Occasionnel

• 30 Octobre 2019

• #14

tu es SUPER PATRICK
j'ai mis en fond d'écran la Caisse d'Epargne

 

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2019

• #15

re