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

Messages postés
4
Date d'inscription
mardi 28 avril 2009
Dernière intervention
2 septembre 2011
- - Dernière réponse : koukos
Messages postés
4
Date d'inscription
mardi 28 avril 2009
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.
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Dernière intervention
30 juin 2013
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 105 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_ghuysmans99
Messages postés
4
Date d'inscription
mardi 28 avril 2009
Dernière intervention
2 septembre 2011
0
Merci
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.
Commenter la réponse de koukos
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Dernière intervention
30 juin 2013
0
Merci
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
Commenter la réponse de cs_ghuysmans99
Messages postés
4
Date d'inscription
mardi 28 avril 2009
Dernière intervention
2 septembre 2011
0
Merci
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.
Commenter la réponse de koukos

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.