NOMBRE en LETTRES. La plus respectueuse du français. Traite monnaies, surfaces, volumes.
HTML-код
- Опубликовано: 28 сен 2024
- Le code pour Excel-Windows
1drv.ms/t/s!Aq...
Le code pour LibreOffice Calc-Windows-Linux
1drv.ms/t/s!Aq...
Créer une fonction personnalisée par Stephane Rosetti
• Créer des fonctions Ex...
ou par FO se former
• VBA - Créer sa fonctio...
Bonjour Monsieur,
C’est avec grand intérêt que j’ai regardé votre vidéo sur la transformation des nombres en lettres. Je tiens à vous féliciter, pour ce code très complet. Toutefois ne maîtrisant pas du tout le langage VBA, j’ai pu relever, si je ne fais pas erreur que deux modifications devaient être apportées pour respecter la langue française à savoir :
• La partie entière doit être reliée à la partie décimale avec la conjonction et
Ex : « Case 2
Select Case byDec
Case 0: NOMBREenLETTRES = ConvNumEnt(CDbl(Entier), Langue) & " " & strUnit
Case Else:
If ConvNumEnt(CDbl(Entier), Langue) = "" Then
NOMBREenLETTRES = ConvNumDizaine(byDec, Langue) & strDecimales
Else
NOMBREenLETTRES = ConvNumEnt(CDbl(Entier), Langue) & " " & strUnit & " et " & _
ConvNumDizaine(byDec, Langue) & strDecimales
End If
End Select
• Le chiffre 100 ne s’accorde pas s’il est suivi d’un autre adjectif numéral à savoir :
100 000,00€ Cent-mille euros
200 000,00€ Deux-cent-mille euros
200 000 000,00€ Deux-cent-millions d’euros
Je vous prie de m’en excuser, mais malgré toute ma bonne volonté et mon obstination pour arriver à m’imprégner des différentes fonctions offertes par le langage VBA, je n’y arrive pas.
Êtes-vous disposé à m’indiquer la ligne de code VBA à inscrire, afin que lorsque ce cas se présente cette règle de la grammaire française soit bien respectée.
Je vous remercie pour toute l’attention portée à ma demande.
Prenez bien soin de vous et des vôtres !
Bien à vous.
Bonjour @user-yl2xh7ci9e.
Merci de t’intéresser à ce code. J'ai bien noté ta demande concernant la liaison "et" entre l'entier et les décimales ainsi que la correction concernant l'invariabilité du mot cent devant mille (ce détail m'avait échappé). J'ai retravaillé le code en conséquence pour obtenir les résultats souhaités. Sous la vidéo le lien de téléchargement du code renvoie vers ce code corrigé. Je te conseille une fois téléchargé de copier coller pour écraser l'ancien code sans perturber Excel. Les modifications étant assez profondes, ne cherche pas à corriger l'ancien code. J'espère que tout fonctionnera correctement (j'ai fait pas mal d'essai). J'ai ajouté quelques commentaires pour une meilleure compréhension.
Tiens moi au courant si j'ai raté quelque chose. Je t'en souhaite une bonne utilisation. Cordialement.
Petite correction apportée sur le fichier téléchargé le 03/07/2023 à 19 h 30.
@@MrJef50000
@@TIMIDETIMIDE Aucun message n'est associé à ta réponse. Dis-moi si les corrections répondent à tes attentes. Cordialement.
@@MrJef50000
Monsieur bonjour,
Je tiens à vous remercier pour votre excellent code VBA, ainsi que vos réponses et toute l’attention portée à mes demandes. Comme vous me l’avez conseillé, j’ai bien intégré le nouveau code modifié, qui donne bien le résultat escompté.
Je vous prie de m’excuser, mais malgré toute ma bonne volonté et l’envie de pouvoir maîtriser ce langage, je n’y arrive pas !
Sans être trop perfectionniste, j’ai bien tenté de faire la modification par moi-même sur votre code très complet, pour que la première lettre du résultat à obtenir soit en majuscule. Mais je n’y suis pas arrivé ! Je sais que la ligne qui doit être inscrite doit commencer de la manière suivante : NOMBREenLETTRES= UCase(Left(ect. …
Je vous réitère tous mes remerciements et mes félicitations pour votre excellent code mis à la disposition de tous !
Prenez bien soin de vous et des vôtres !
Bien à vous.
Bonsoir Monsieur
Je tien a vous remercie pour cette vidéo excellant et surtout de nous avoir donné
les fichier Excel pour pouvoir suive votre exemple de A à Z
Bonsoir M. Boualem M.
Je suis très heureux que cette fonction réponde à vos besoins. N'étant pas informaticien, j'ai pris beaucoup de plaisir à la développer. Je vous en souhaite un bon usage, et vous remercie pour votre commentaire reconnaissant.
bonjour monsieur. tout d'abord merci pour vos efforts sur la video. et je vous demande si vous avez une solution pour convertir et écrire en lettre un nombre négatif. exemple " -10 dhs" " moins dix dirhams". on a besoin de l'écrire surtout sur les montants négatifs de la révision des prix
et merci d'avance. mon email khouamk@gmail.com
Bonjour monsieur. Je viens de découvrir votre question. Je vous remercie de l'intérêt que vous portez à ma fonction. N'étant pas informaticien ou développeur, je vais me replonger dans le code et vous tiendrai au courant dans quelques jours du fruit de mon travail. J'espère pouvoir vous apporter une réponse positive.
merci beaucoup pour votre gentillesse. et bon courage. bon succès.
Merci à tous ceux qui apprécient cette fonction. J'ai corrigé le code pour permettre cette option des nombres négatifs.