ConvNumberLetter

Fermé
mario - 8 janv. 2009 à 14:18
 HASSOUNI - 4 juil. 2019 à 18:30
bonjour
bien sur j'arrive pas sniffff

pour commencer,
j'ai téléchargé sur: http://gerard.g.pagesperso-orange.fr/logexl_05.htm#Convertir%20les%20nombres%20en%20lettres
le pb,



je voudrai un chifre pour cnvertir en lettre par exemple: X€ ou Y€ = Xeuro ou Yeuro.

dans le macro "arguments de lafonction",pourquoi "arguments de lafonction" c.a.d =B3 propose 52,12 ?




Convertir les nombres en lettres :

Aucune fonction d' Excel ne permet la conversion des nombres en lettres.
Par contre une macro a été créée à cet effet et se nomme ConvNumberLetter.
Afin de pouvoir en bénéficier il convient préalablement de l'installer. Elle sera ensuite disponible comme une fonction.

1 - Installation de la macro complémentaire : (CA C'EST FAIT)
Télécharger le fichier NbLettre.xla et le placer dans le dossier=
C:Documents and Settings / Ton Nom / Application Data / Microsoft/Macros complémentaires.

Ouvrir Excel.

Depuis le menu Outils / Macros complémentaires… ouvrir la boite de dialogue Macro Complémentaire.

Dans la fenêtre qui s’est ouverte cocher Nblettre (1) et faire OK (2).

Pour le cas où la ligne Nblettre ne figurerait pas il conviendrait de rechercher le fichier NbLettre.xla en cliquant sur Parcourir…
(3) et de l’activer.
Cette opération est à effectuer sur chaque ordinateur devant utiliser la macro en création.


2 - Utilisation de la fonction ConvNumberLetter : (CA C'EST FAIT)
Comme pour une fonction classique cliquer sur Insérer une fonction.

Dans la fenêtre Insérer une fonction choisir la catégorie Personnalisées (4) puis la fonction ConvNumberLetter (5).

Cliquer sur OK.

La fenêtre de l' assistant Arguments de la fonction s' ouvre.
Elle comporte trois zones d' arguments à renseigner de la façon suivante :

Nombre est la cellule dont le contenu est à convertir.



Devise (6) est :

0 aucune
1 Euro
2 Dollar $

Langue (7) est :

0 Français
1 Belge
2 Suisse

(ERREUR)
L' apparence du texte résultant de cette fonction ne peut pas être modifié.
Par exemple il n’est pas possible de mettre des majuscules.
Seul le formatage classique des cellules (gras, italique…) est possible.



il semble la "police Arial" ?, bref j'ai pris "police Couier New" en gras, italique.




Pour visualiser le code VBA de la macro, faire Alt+F11.
Il se trouve dans le Module ModNumLettre de VBAProject (NbLettre.xla) le tout situé dans l’Explorateur de projets,
sur la gauche de la fenêtre.

(ERREUR)
donc Alt+F11 "Microsoft Visual Basic-classeur1" il dit:"(Name)VBAProject"

je comprends rien avec "....le tout situé dans l’Explorateur de projets,"
je il manque un macro peut-etre non ?, pourquoi c' marche pas ?

svp, ya-t'il une personne......ATTENTION JE SUIS TRES DEBUTANT
Merci.
A voir également:

2 réponses

Utilisateur anonyme
8 janv. 2009 à 17:11
Bonjour,
Je suis un peu surpris parce que chez moi la fonction comporte 5 arguments.
'Nombre
' Devise=0 aucune
' =1 Euro €
' =2 Dollar $
' =3 €uro €
' Langue=0 Français
' =1 Belgique
' =2 Suisse
' Casse =0 Minuscule
' =1 Majuscule en début de phrase
' =2 Majuscule
' =3 Majuscule en début de chaque mot
' ZeroCent=0 Ne mentionne pas les cents s'ils sont égal à 0
' =1 Mentionne toujours les cents
'***********
' Conversion limitée à 999 999 999 999 999 ou 9 999 999 999 999,99
si le nombre contient plus de 2 décimales, il est arrondi à 2 décimales
*****
L'argument appelé "Casse" vous aiderait à résoudre le problème des majuscules.
Essayez d' ajouter les arguments manquants ou copiez cette formule:
=ConvNumberLetter(A7;1;2;1;0) avec le nombre à transformer en A7.
Bon courage.
8
bonjour,
j ai aimé bien votre solution mais prière de me donner ce macro parce-que le mien est très ancien il ne connait pas les autres arguments
merci
0