Macro pr convertir chiffr/lettr + monnaie

[Christian]

Bonsoir à tout le forum,


J'ai trouvé sur un site une macro pour convertir des chiffres en libellé.
Je souhaiterais pouvoir choisir la monnaie....

Fichier joint (plus clair)

Je vous remercie par avance pour l'attention que vous voudrez bien accorder à ma demande.


Bien amicalement,

Christian [file name=christian_20051123175147.zip size=17353]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/christian_20051123175147.zip[/file]

 

[JC de Lorient]

sALUT cHRISTIAN? LE FORUM

vas sur ce lien
tu as un tas de possibilités au niveau des monnaies
c une macro complémentaire

Ce lien n'existe plus

 

[Charly2]

Bonsoir Christian et JC, bonsoir à toutes et à tous,

Pour ta demande, Christian, tu peux modifier ton code comme suit :

If Int(numerique) = 1 Then
  resultat = resultat + Mid(Range('K12'), 1, Len(Range('K12')) - 1) & ' '
Else
  resultat = resultat + Range('K12') & ' '
End If

par contre, les centimes aux States :unsure: ...

Amicalement
Charly

 

[Christian]

Bonjour à tout le forum,

Merci JC de Lorient pour le lien, merci Charly2 pour ton code.

Je regarde ça ce soir...


Bien amicalement,

Christian

 

[THLAC]

Re : Macro pr convertir chiffr/lettr + monnaie

Bien que ce message soit vieux, je dispose de la macro ci jointe. Elle fonctionne en 2003 mais son adaptation vers 2010 semble poser des questions. Pour 2003, elle se place dans les macro complémentaires et foinction comme une fonction personnalisée. Elle est faite pour la Belgique, affiche entoutes lettres des nombres d'une autre cellule avec ou sans figuration monétaire (euros) et en deux langues possibles (français et néerlandais)