Modification d'une Macro

Version imprimable

08/12/2009, 19h24
zahidovich

Modification d'une Macro

Bonjour,
J'ai une Macro pour convertir les chiffres en lettres que m'a donné un ami . Et comme je ne suis pas doué en programmation j'aimerai bien recvoir votre aide et merci.
Voila : la macro convertit les chiffres en lettres ; ce que je veux moi ; est ce que je peux avoir cette conversion pour les chiffres entiers et garder les chiffres décimales comme ils sont.
Exp : 385.02 donne trois cent quatre vingt cinq dhs et deux cts; ce que je veux avoir est : trois cent quatre vingt cinq dhs; 02 cts.
et encore merci pour votre aide.

Bonjour,

Remplace ce bout de code

Code:

1
2
3
4
5
6
7
8
9
10
     'Dixième
     ZahidD_info_n2 = CInt(ZahidD_info_n1 * 100)
     ZahidD_info_x = ZahidD_info_cent(ZahidD_info_n2, False)
     ZahidD_info_n1 = ZahidD_info_n1 - ZahidD_info_n2
     If Trim(ZahidD_info_x) <> "zéro" Then
        ZahidD_info_t = ZahidD_info_t & " et" & ZahidD_info_x & IIf(ZahidD_info_réél <> "", " " & ZahidD_info_réél, "")
        If ZahidD_info_n2 > 1 And Trim(ZahidD_info_réél) <> "" Then ZahidD_info_t = ZahidD_info_t & "s"
     End If
     ZahidD_info_t = Trim(ZahidD_info_t)
     ZahidD_info = UCase(Left(ZahidD_info_t, 1)) & Right(ZahidD_info_t, Len(ZahidD_info_t) - 1)

par ça

Code:

1
2
3
4
5
6
7
8
     'Dixième
     ZahidD_info_n2 = CInt(ZahidD_info_n1 * 100)
     ZahidD_info_x = ZahidD_info_cent(ZahidD_info_n2, False)
     ZahidD_info_n1 = ZahidD_info_n1 - ZahidD_info_n2
     ZahidD_info_t = ZahidD_info_t & " et " & Left(ZahidD_info_n2, 2) & " " & ZahidD_info_réél
     If ZahidD_info_n2 > 1 And Trim(ZahidD_info_réél) <> "" Then ZahidD_info_t = ZahidD_info_t & "s"
     ZahidD_info_t = Trim(ZahidD_info_t)
     ZahidD_info = UCase(Left(ZahidD_info_t, 1)) & Right(ZahidD_info_t, Len(ZahidD_info_t) - 1)

ça devrait être bon.

A part ça, balaise Zahid :)

Bye.

09/12/2009, 17h51
zahidovich

Bonjour

Merci pour votre aide Mr Antoniom , ca marche à merveille; Je vous suis trés reconnaissant.
Mais il me reste deux choses à connaitre SVP.
1 - lors de l'enregistrement , j'ai ce maessage coloré en jaune et commence ensuite le débogage :
ActiveWorkbook.SaveAs Filename:="C:\Mes documents\Classeur1.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
2 - pour les chiffres décimals , je veux avoir deux chiffres si c'est un zéro ( deux zéro ) et non pas un seul : exp : pour 237.00 je vx avoir deux cent trente sept dirhams et 00 cts.
et Merci encore