Transformer des chiffre en lettre sous Excel [Résolu]

Signaler
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005
-
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005
-
Bonjour,je voudrai s'avoir si c'est possible de changer des chiffre en lettre
exp : 200.10 Euro en Deus cent Euro Dix centimes

cette transformation ce fait directement dans une feuille Excel

merci de votre aide

TThierry133

6 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
13
Tu peux aussi coller tout le code dans un module de ton classeur.
Ensuite, dans ta feuil3, sélectionne B30 puis menu/insérer/fonction tu trouveras la fonction dans 'Personnalisées', tu n'as plus qu'à te servir de l'assistant pour choisir la cellule à convertir (G27).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 150 internautes nous ont dit merci ce mois-ci

Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
salut

il y a une source la dessus :

http://www.vbfrance.com/code.aspx?id=31556

je ne l'ai pas testé
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
13
Salut, 1 seule source sur ce sujet ? Non, je dirais plutôt des dizaines dont une dont je suis l'auteur et qui fonctionne sans accroc depuis 2 ans (sous excel 97 et plus) dans plusieurs agences comptables :

http://www.vbfrance.com/code.aspx?id=20777

PS : désolé de faire ma pub, ce n'est pas mon habitude.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005

re bonjour,

le chiffre que je dois convertir en chiffre est dans ma Feuil3 et dans le Cellule G27 le resultat dois se mettre dans la cellule B30.

j'es vue ton code CanisLupus je ne voie pas comment mettre le code , ni ou il prend le chiffre a traduire .

merci de ton aide

TThierry133
Messages postés
698
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
20 mai 2011
2
j'ai lu vite fait le code de CanisLupus, mais il me seble qu'il doit fonctionner comme ca dans ton cas :

'tu selection la feuil3

range("B30").text = NombresEnLettres_EURO(range("G27").text )
Messages postés
50
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
22 décembre 2005

Merci pour tout sa fonctionne tres bien
TThierry133