Convertir un nombre en lettre
Fermé
microsophitic
Messages postés
3
Date d'inscription
dimanche 28 octobre 2012
Statut
Membre
Dernière intervention
15 janvier 2013
-
13 janv. 2013 à 20:05
microsophitic Messages postés 3 Date d'inscription dimanche 28 octobre 2012 Statut Membre Dernière intervention 15 janvier 2013 - 15 janv. 2013 à 20:47
microsophitic Messages postés 3 Date d'inscription dimanche 28 octobre 2012 Statut Membre Dernière intervention 15 janvier 2013 - 15 janv. 2013 à 20:47
A voir également:
- Convertir un nombre en lettre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Convertir youtube en mp3 avec audacity - Guide
- Application pour écrire les chiffre en lettre - Télécharger - Outils professionnels
- En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat
- Excel mois en lettre ✓ - Forum Excel
4 réponses
mcfly10
Messages postés
1052
Date d'inscription
samedi 18 décembre 2004
Statut
Membre
Dernière intervention
12 avril 2022
238
13 janv. 2013 à 20:59
13 janv. 2013 à 20:59
Un Replace(Replace(... ; "vingts M"; "vingt M") ; "cents M"; "cent M") ne suffirait pas ?
microsophitic
Messages postés
3
Date d'inscription
dimanche 28 octobre 2012
Statut
Membre
Dernière intervention
15 janvier 2013
2
14 janv. 2013 à 16:27
14 janv. 2013 à 16:27
Bonjour et merci pour la réponse, mais cela ne répond pas à mon problème ... la fonction dont je parle est accessible ici:
https://www.commentcamarche.net/faq/11100-vb6-net-vba-transformer-chiffres-en-lettre
et je l'ai utilisée avec access 2007 pour m'en servir dans une procédure de gestion des clients et j'utilise cette fonction pour un reçu ou une facture, par exemple 200 euros (deux cents euros).
Cette fonction marche très bien sauf les fautes d'orthographe citées. Les accords avec vingt et cent sont spéciaux mais j'imagine qu'il est possible de corriger ces fautes; j'ai pu corriger une faute avec vingt mais là je sèche... de plus il y a un souci avec les décimales mais là je verrai après.
Merci encore de l'aide apportée.
Gérard
https://www.commentcamarche.net/faq/11100-vb6-net-vba-transformer-chiffres-en-lettre
et je l'ai utilisée avec access 2007 pour m'en servir dans une procédure de gestion des clients et j'utilise cette fonction pour un reçu ou une facture, par exemple 200 euros (deux cents euros).
Cette fonction marche très bien sauf les fautes d'orthographe citées. Les accords avec vingt et cent sont spéciaux mais j'imagine qu'il est possible de corriger ces fautes; j'ai pu corriger une faute avec vingt mais là je sèche... de plus il y a un souci avec les décimales mais là je verrai après.
Merci encore de l'aide apportée.
Gérard
mcfly10
Messages postés
1052
Date d'inscription
samedi 18 décembre 2004
Statut
Membre
Dernière intervention
12 avril 2022
238
15 janv. 2013 à 08:43
15 janv. 2013 à 08:43
Je ne m'y connais pas trop en VB, mais je vais tenter.
If e(1) = 1 Then
strBuff = "cent " & strBuff
ElseIf e(1) >= 1 Then 'pluriel
If strBuff = "" Then 'avec rien derrière
strBuff = Unite(e(1)) & "cents "
Else 'avec quelque chose derrière
strBuff = Unite(e(1)) & "cent " & strBuff
End If
End If
Peut-être devrais-tu déplacer ton message dans le forum programmation.
If e(1) = 1 Then
strBuff = "cent " & strBuff
ElseIf e(1) >= 1 Then 'pluriel
If strBuff = "" Then 'avec rien derrière
strBuff = Unite(e(1)) & "cents "
Else 'avec quelque chose derrière
strBuff = Unite(e(1)) & "cent " & strBuff
End If
End If
Peut-être devrais-tu déplacer ton message dans le forum programmation.
microsophitic
Messages postés
3
Date d'inscription
dimanche 28 octobre 2012
Statut
Membre
Dernière intervention
15 janvier 2013
2
15 janv. 2013 à 20:47
15 janv. 2013 à 20:47
Bonjour et merci encore pour la réponse ... malheureusement ça ne marche pas; j'essaie d'ajouter "millions" ou "milliards" ici et là sans trop savoir où pour faire en sorte que "deux cents millions" par exemple fasse que cent ait bien son "s" ... puisque la règle veut que pour "deux cent mille" cent n'a pas de "s" justement d'où la difficulté.
Cordialement
Cordialement