Macro pour transformer chiffres en lettres

[François]

Bonjour a tous,

Où pourrais-je trouver une macro me permettant de transformer une valeur chiffre en euros en lettres comme sur un chéquier par exemple.

Merci par avance

 

[chris]

Bonjour
Voir section téléchargement.
Chris

 

[EMG]

Salut à tous,

Tiens le fichier joint fait ça correctement et il est déjà présent sur mis sur le forum par notre ami " Vériland "

la solution est aussi de se donner la peine de regarder dans les anciens messages du forum il y a beaucoup de chose a retrouver seulement il faut se donner cette petite peine car je suppose que ce vous faite en ce moment n'est pas un devoir a rendre pour le lendemain.

@+ Gérard

 

[François]

ok merci

ne plus répondre merci

 

[abdel]

merci pour le tuyau.
J'ai telecharge le .ZIP mais je n'arrive pas a le mettre en oeuvre. Peut tu m'aider ??
Merci d'avance

 

[Pascal76]

Re

Il te faut recopier le code VBA se trouvant dans le module "ModuleNombreTexte" dans un module de ton classeur.

Une fois cela fait dans la cellule où tu désires que ton texte s'inscrive tu cliques sur le bouton fonction et dans la liste toutes tu choisis "NombreTexte". Tu rentres toutes les valeurs et le tour est joué.

Pascal

 

[François]

Merci de ne plus répondre sur mon mail surchargé....

@ très bientôt et encore merci pour vos conseils...

 

[abdel]

je n'y arrive toujours pas
je n'arrive pas a renommer le module VBA
Aucune fonction supplementaire n'apparait
Merci d'avance

 

[Pascal76]

Re

Pourquoi veux-tu le renommer ton module ?

Du moment que tu mets la fonction dans un module de ton classeur tu vois la fonction apparaître lorsque tu cliques sur l'icône Fx lorsque ton classeur est ouvert.

Pascal

 

[EMG]

Salut abdel, Pascal76, françois, et forum

juste une petite note pour (NombreTexte)

Supposons que tu as en A1 le nombre 125,15 et que tu veux écrire en B1 le résultat en lettre. Alors fait comme suit dans la barre de menu sélection (Insertion >> Fonction >> Personnalisées >> NombreText puis sur Ok, tu vas avoir la boîte (arguments de la fonction) clique sur la cellule A1(ValConv) >> (MonnaieDéci) met le signe (") et en gardant les touches appuier (Ctrl+Alt+E) et ferme avec le même signe (") et enfin OK. Voila la cellule B1 est maintenant en Texte

@ Gérard

 

[un inconnu]

Merci pour ce VBA, il est absolument parfait .