TRADUIRE DES GROS CHIFFRES EN LETTRES AVEC CORRECTION ORTOGRAPHIQUE
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
14 sept. 2008 à 13:50
Lily2Rose Messages postés 10 Date d'inscription mardi 24 novembre 2009 Statut Membre Dernière intervention 31 mars 2010 - 31 mars 2010 à 17:58
Lily2Rose Messages postés 10 Date d'inscription mardi 24 novembre 2009 Statut Membre Dernière intervention 31 mars 2010 - 31 mars 2010 à 17:58
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/47934-traduire-des-gros-chiffres-en-lettres-avec-correction-ortographique
https://codes-sources.commentcamarche.net/source/47934-traduire-des-gros-chiffres-en-lettres-avec-correction-ortographique
31 mars 2010 à 17:58
Bonne continuation!
Cordialement Lily2Rose.
18 mars 2010 à 22:29
bonne chance !
16 mars 2010 à 13:56
7 mars 2010 à 21:28
2 mars 2010 à 16:42
tout d'abord merci VICOSTA pour cette source.
Je voudrais bien executer ce code mais ca marche pas sur mon poste .Ca est due au variable qui figurent sur ce code je sais plus avec quoi je vais les remplacer.SVP aidez moi à executer ce progamme dont j'en ai besoin.
Si c'est possible passe moi ton E-mail pour m'aider.
Merci d'avance.
et BONNE COURAGE :).
21 sept. 2009 à 23:49
sFormat Trim(Format$(CDec(Nombre), "### ### ### ### ### ### ### ###.000")) sTraducteur Right$("CDUQCDUTCDUbCDUBCDUiCDUmCDUMCDU.CDU", Len(sFormat))
21 sept. 2009 à 22:57
j'ai trouve l'origine de l'erreur que risquent de rencontrer d'autres utilisateurs
En fait en recopiant ton code et en le collant sur la feuille toute les nouvelles lignes etaient precedees du signe diese
j'ignore pourquoi?? en supprimant le signe en question tout a fonctionne
il faut que je corrige la monaie utilisee qui a 3 decimales et non deux as tu un raccourci pour modifier nbr decimales
merci pour tes efforts et bravo pour le code
gridha
21 sept. 2009 à 22:43
(impossible d'éditer un 'last post' ?)
21 sept. 2009 à 22:41
J'ai re-testé, tout va bien dans ce point.
Malleureusement je ne peux pas t'aider
Peut être que quelqun peut te conseiller meilleur, bonne chance
21 sept. 2009 à 22:19
re meme en corrigeant mid(s traducteur..... par mid$(straducteur...... toujours le meme msg
21 sept. 2009 à 22:17
Dim sFormat As String, sTraducteur As String, Chiffre As Integer, ChiffreMem As Integer
Dim I As Integer, X As Integer, sAtome As String, S As String, Group As Integer, GroupMem As Integer
Il se peut que t'as copié le code sur un projet existant qui contient un composant dll ou ocx non enregistré.
Essaie donc de copier le code sur un nouveau projet .vbp
21 sept. 2009 à 21:47
c'est ce que j'ai fait code recopie et colle sur une feuille(code) feuille(grafic) avec 3 textboxs mais erreur persisite
gridha
21 sept. 2009 à 20:30
J'ai retesté, pas d'erreur avec vb6
Il faut cliquer sur le lien ci-dessus "copier dans le presse papier " et coller dans une feuille ayant 3 textboxs
21 sept. 2009 à 15:14
j'essaie d utiliser ton code mais j'ai toujours un pb au niveau de la ligne 41 "mid(straducteur..." msg "erreur de compilation variable non definie"
comment pourrai je y remedier
merci explications
gridha
23 sept. 2008 à 10:11
vicosta merci pour ce code et l'effort (je pense que vous mérité un merci avant de critiqué votre code)
Pour moi j'ai pas de remarque (euro ou franc ou autre peut importe chacun personnalise comme il veux)
J'ai déjà posté un code qui converti le nombre en chiffre en L'langue Arabe
Chercher le code de "sder0202"
Encore merci
;)
22 sept. 2008 à 16:19
SVP aider moi à exécuter ce programme sur mon ordinateur, bon, je ne connais rien de VB (Visual Basic) et les Macro.. SVP donner moi plus de détails pour que je puisse l'utiliser.
Merci d'avance.
22 sept. 2008 à 12:53
la correction ortographique a été poussé selon les normes en vigueur, mais j'attends vos commentaires"
Avec 3 fautes pour deux lignes, il faudra vraiment faire une correction orthographique poussée des valeurs ...
22 sept. 2008 à 11:47
Pour corriger le pb des centimes vides ("1 Euro et cts"), il faut corriger le test avec :
===========================================
'Autres rectifications:
If InStr(sFormat, ".00") 0 And InStr(sFormat, ",00") 0 Then
===========================================
pour prendre en compte le format du séparateur des décimales.
(A vérifier avec un format anglais, et 1,000.00 (Mille) ???)
22 sept. 2008 à 10:10
SVP aider moi à exécuter ce programme sur mon ordinateur, bon, je ne connais rien de VB (Visual Basic) et les Macro…. SVP donner moi plus de détails pour que je puisse l’utiliser.
Merci d’avance.
Amicalement
16 sept. 2008 à 08:24
http://fr.wiktionary.org/wiki/chiffre
Utiliser chiffre pour nombre est une extension du langage, ce n'est pas la définition stricte, en fait c'était juste pour dire que le titre de ta source pouvait porter à confusion.
15 sept. 2008 à 22:02
15 sept. 2008 à 20:03
15 sept. 2008 à 18:44
(belgique , france , suisse ) si tu veux je peux te l'envoyer par @mail
tu pourrais t'en inspirer pour faire un prog vraiment complet qui prends un nombre en ligne de commande , qui renvoie un string et optionnelement qui le met dans le presse papier
tu peux aussi ajouter une version console ( mdr )
15 sept. 2008 à 18:26
15 sept. 2008 à 18:25
@Blodox > je vais éssaier d'incorporer d'autres divises, ainsi que les setante et nonante en option; dès que j'aurais un moment, je ferais alors une nouvelle maj
15 sept. 2008 à 16:31
"Un chiffre est un symbole employé pour représenter des nombres de 0 à 9"
http://fr.wikipedia.org/wiki/Chiffre
http://fr.wikipedia.org/wiki/Nombre
15 sept. 2008 à 12:05
Pourquoi seulement en euros ?
Par paramétrage unité/sous-multiple, tu peux avoir une autre devise (francs suisses par ex)
14 sept. 2008 à 22:19
Au final "Euro" n'est pas invariable ...
Toutes mes excuses !
Antoine ROUX
14 sept. 2008 à 21:56
Une petite correction pour ce mot ne serai pas de trop.
Bonne continuation
Antoine ROUX
14 sept. 2008 à 18:19
1 = Un Euro
Peut être que sur les autres versions VB ça soit différent (???)
14 sept. 2008 à 17:49
rien de changé
14 sept. 2008 à 17:07
Si des erreurs persistent,on peut me les signaler avec des exemples comme:
222 = Deux cent vingt-deux Euros
1.05 = Un Euro cinq Cts
etc, et
Merci d'avance
14 sept. 2008 à 15:15
tu pourrais aussi utiliser le caracyère Euro directement
14 sept. 2008 à 14:12
ça va être prise en compte dans la prochainne mise à jour
14 sept. 2008 à 13:50
est ce que ce ne serait pas mieux de vérifier s'il y a des centimes avant de les afficher???