[Déplacé ASP -> VB]Convertir une somme de chiffres en lettre

Résolu
koukos Messages postés 4 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 2 septembre 2011 - 14 août 2011 à 16:50
koukos Messages postés 4 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 2 septembre 2011 - 16 août 2011 à 18:30
Salut,
Dans une base access, je dois imprimer un état qui se présentera finalement de cette façon :
N° Nom et prénoms Montant
1 Léopold Prima 50 000
2 Peter Walker 60 000
Total 110 000

Arrêté le présent état à la somme de cent dix mille (110 000) francs.

Pouvez-vous m’aider pour que le total qui apparaît en mode création de l’état de la manière suivante : =somme([montant]) s’affiche en lettres dans l'état comme indiqué ci-dessus ?

Merci.

4 réponses

cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
14 août 2011 à 18:58
Cecidevrait t'intéresser. Prends les fonctions, colle-les dans un module (crées-en un nouveau si tu n'en as pas encore) et appelle la fonction principale (source de données =ConvNumberLetter(somme([montant]), 1, 0) ). Tu devras seulement remplacer Euro par francs

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question
3
koukos Messages postés 4 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 2 septembre 2011
15 août 2011 à 22:52
Merci de la réponse mais je n’arrive toujours pas à solutionner mon état en tant que débutant ; peut-être me suis-je mal expliqué. Voila :

Dans le pied de l’état, en mode création, j’ai inséré au niveau du total la formule suivante : =somme([Montant]) . En mode aperçu, c’est 110 000 qui apparaît. Je voudrai voir en toute lettre Cent dix mille s’afficher.
0
cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
15 août 2011 à 23:34
Remplace ta formule par =ConvNumberLetter(somme([montant]), 1, 0) et copie les fonctions dans un module (à créer).

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question
0
koukos Messages postés 4 Date d'inscription mardi 28 avril 2009 Statut Membre Dernière intervention 2 septembre 2011
16 août 2011 à 18:30
Merci à ghuysmans99 pour la patience dont il a fait oeuvre en ce qui me concerne dans la résolution de mon état access. Tout est ok.
0
Rejoignez-nous