CHIFFRE EN LETTRE FONCTION
cs_spproust
Messages postés
4
Date d'inscription
vendredi 7 février 2003
Statut
Membre
Dernière intervention
13 mai 2004
-
3 mars 2003 à 22:54
gbegerco Messages postés 21 Date d'inscription mardi 8 avril 2003 Statut Membre Dernière intervention 18 mai 2009 - 17 mars 2009 à 17:14
gbegerco Messages postés 21 Date d'inscription mardi 8 avril 2003 Statut Membre Dernière intervention 18 mai 2009 - 17 mars 2009 à 17:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6325-chiffre-en-lettre-fonction
https://codes-sources.commentcamarche.net/source/6325-chiffre-en-lettre-fonction
17 mars 2009 à 17:14
A mettre entre le loop et le ChiffreToLettre = Result$
"
If result$ Like "Un Milliar*" Then
result$ = result$
Else
If result$ Like "Un Millio*" Then
result$ = result$
Else
If result$ Like "Un Mil*" Then
result$ = Mid(result$, 4)
End If
End If
End If
"
et le tour est joué. en plus de petites correction d'orthographe ben je pense que c'est cool.........
Merci pour la function
18 déc. 2004 à 10:28
Sa marche pas
28 nov. 2003 à 08:31
3 sept. 2003 à 14:47
Il y a un autre problème, un peu plus sérieux que le "un mille":
ce programme donne "Mille cent" pour "1000", "cent cinquante mille cent" pour "150000"
Pour y remédier, il faut ajouter la boucle suivante entre
Chiffre = Right$(Chiffre, Len(Chiffre) - k) et Loop (à la fin):
While Left$(Chiffre, 1) = "0"
Chiffre = Right$(Chiffre, Len(Chiffre) - 1)
Wend
Ainsi cela fonctionne.
Merci quand même pour ce code sympa.
4 mars 2003 à 12:18
sinon ElDoktor sympa ton prog...
3 mars 2003 à 22:54
If result$ Like "Un Mil*" Then result$ = Mid(result$, 4)
après le loop, comme ça si tu traduis un nombre de type 1250, il n'écrit pas "Un Mille Deux Cent Cinquante".
Bravo.
SPP