Re,

Ci dessous un extrait du code : Je récupère les différents paramètres, je vérifie leur validité et différents détails (taille, signe etc ...) puis je convertis le nombre en alpha grâce à la fonction *cstr()*.

J'extrais ensuite mes groupes de chiffre avec la fonction *mid()* puis les retransforme en nombre avec la fonction *cint()* pour continuer ma moulinette.

Tu peux récupérer la macro entière ici <http://www.crafe.com/telechargement/NombreEcritEnLettre.ods> .

Salutations.

Fernand COSTA '********************** Teste des paramètres reçus

if IsNumeric(vNombre) then if vNombre > 999999999999.999 OR vNombre < (-999999999999.999) THEN vMessageErr = "Nombre hors fourchette !" goto TraitementErreur: endif else vMessageErr = "Valeur non numérique !" goto TraitementErreur: endIf if vNombre < 0 then vSigne=false vNombre=abs(vNombre) else vSigne=true endif vtravail=cstr(vNombre) vlongueurnb=len(vtravail) vpositionvirgule=instr(vtravail,",") if vpositionvirgule=0 then vpositionvirgule = vlongueurnb+1 end if

if vposition<0 or vposition>3 then vmessageErr = "Nb de décimales > à 3 !" goto traitementErreur: end if

'********************** Décomposition du nombre vpositiondepart=vpositionvirgule-12 vpositionfin=vpositiondepart+2 vlongueurgroupe=3 if vpositionfin>0 then if vpositiondepart<1 then vlongueurgroupe=vlongueurgroupe+vpositiondepart-1 vpositiondepart = 1 end if vMilliard = cint(mid(vtravail,vpositiondepart,vlongueurgroupe)) end if rem int (vNombre/1000000000)

vpositiondepart=vpositionvirgule-9 vpositionfin=vpositiondepart+2 vlongueurgroupe=3 if vpositionfin>0 then if vpositiondepart<1 then vlongueurgroupe=vlongueurgroupe+vpositiondepart-1 vpositiondepart = 1 end if vMillion = cint(mid(vtravail,vpositiondepart,vlongueurgroupe)) end if

rem vMillion=int((vNombre-(vMilliard*1000000000))/1000000)

vpositiondepart=vpositionvirgule-6 vpositionfin=vpositiondepart+2 vlongueurgroupe=3 if vpositionfin>0 then if vpositiondepart<1 then vlongueurgroupe=vlongueurgroupe+vpositiondepart-1 vpositiondepart = 1 end if vMille = cint(mid(vtravail,vpositiondepart,vlongueurgroupe)) end if vpositiondepart=vpositionvirgule-3 vpositionfin=vpositiondepart+2 vlongueurgroupe=3 if vpositionfin>0 then if vpositiondepart<1 then vlongueurgroupe=vlongueurgroupe+vpositiondepart-1 vpositiondepart = 1 end if vUnite = cint(mid(vtravail,vpositiondepart,vlongueurgroupe)) end if

vIntermediaire=mid(vtravail,vpositionvirgule+1,vposition) IF len(vIntermediaire<vposition) then do while len(vIntermediaire)<vposition vIntermediaire=vIntermediaire+"0"

christianwtd a écrit :