transformer des chiffres en alpha-numerique

[Damien]

Salut à tous, je cherche une macro qui me permettrait de transformer des chiffres ou des montants en donnée alpha-numérique
ex : 982 devient Neuf cent quatre-vingt-deux

Merci de votre collaboration
Damien

compta@hacfcomblain.be

 

[Abel]

Bonjour Damien,

Bonjour

Regarde dans la zone téléchargement, tu devrais y trouver ton Lien supprimé.

Abel.

 

[Sylvie]

Bonjour Damien, le forum

tu devrais trouver ton bonheur Ce site n'existe plus (site F Sigonneau)

Bonne journée à tous

Oups : Bonjour Abel, à force de jouer aux aiguilleurs du ciel, nous nous sommes croisés

Message édité par: Sylvie, à: 18/10/2005 12:17

 

[GIBI]

bonjour


si y'a pas de virgule il faut corriger la macro


virg = InStr(1, nombre, ',') 'instruction à modifier si '.' décimal au lieu de ',')
entier = Int(nombre)
If virg <> 0 Then
fraction = Left(Right(nombre, Len(nombre) - virg), 2)
Else
fraction = 0
End If

 

[JC de Lorient]

bonsoir le forum

une solution bcp plus simple sans macra avec simplement une macro complémentaire (morefun) a télécharger içi :

Ce lien n'existe plus

navré s'il n'y a pas de lien direct

JC

 

[C@thy]

Bonjour le forum

Quoi??? Vous ne connaissez pas le Pack convertisseur de Ti???

Allez vite voir sur ce lien Ce lien n'existe plus Yatouskifo (et même plus!!!)

Bonne soirée

C@thy B)