Microsoft 365 nombre en lettres incomplet

patricktoulon

XLDnaute Barbatruc

• 9 Août 2023

• #31

re
@Dudu2
selon moi le "dix" est de trop
de 2 jusqu'a 9 " cents" mais "dix cents" ça n'existe pas

VB:

Private Function ConvNumCent(Nombre As Integer, Langue As Byte) As String
    Dim TabUnit As Variant
    Dim byCent As Byte, byReste As Byte
    Dim strReste As String
    
    TabUnit = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
        "huit", "neuf", "dix")

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #32

@patricktoulon,
Je ne sais pas, j'ai juste récupéré le code qui a l'air de fonctionner selon mes quelques tests et modifié des micro-détails du genre les majuscules en minuscules sur les devises, ajout du "et" pour séparer les décimales en devises et la majuscule facultative au début.
Après je ne sais pas ce que l'auteur du code fait de cet Array() mais je sais que le chiffre 10 existe alors...?

 

Vote positif 0 Vote négatif

P

phil66

XLDnaute Junior

• 9 Août 2023

• #33

Bonjour à tous,

Voilà, j'ai utilisé le fichier du post #20 de DUDU et ça fonctionne très bien.
Les milliers sont bien traduits.

Concernant le fichier de Patrick, je n'ai fait que l'enregistrer et changer le nombre,rien de plus...

Désolé pour "l'arrachage de cheveux", Patrick

Phil

 

Pièces jointes

• Fichier DUDU ok.PNG

  25.3 KB · Affichages: 10

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #34

Désolé pour "l'arrachage de cheveux", Patrick

Cliquez pour agrandir...

Ah ben si ça marche sur le fichier que j'ai posté et pas avec celui de @patricktoulon, s'il n'est pas encore chauve il va le devenir

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #35

je vois sur le screenshot de @phil66 que le séparateur des milliers est "." et pas " ".
Çà viendrait-y pas de là ?

 

Dernière édition: 9 Août 2023

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 9 Août 2023

• #36

perso, je ne sais plus ce qui marche ou pas..
entre des photos screenshot, des arobases qui viennent d'on ne sait ou, des fichiers différents: on ne sait meme plus lequel est utilisé par l'auteur.. si l'auteur pouvait clarifier la situation..

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #37

En fait je ne pense pas que ça vienne des séparateurs qui ne sont que des formats visuels de la cellule qui contient un nombre qui n'a pas de format en VBA si ce nombre n'est pas capté par un CStr(cellule) explicite ou implicite.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Août 2023

• #38

j'ai beau tout essayer pour que ca me coupe le nombre comme ça et rien y fait
mes formules donne un bon résultat
pouvez vous me passer un fichier avec l'erreur ?

 

Vote positif 0 Vote négatif

P

phil66

XLDnaute Junior

• 9 Août 2023

• #39

patricktoulon à dit:

j'ai beau tout essayer pour que ca me coupe le nombre comme ça et rien y fait
mes formules donne un bon résultat
pouvez vous me passer un fichier avec l'erreur ?

Cliquez pour agrandir...

Je fais ça ce soir, là je n'ai plus accès à mon dossier.

Merci,

Phil

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Août 2023

• #40

Dudu2 à dit:

je vois sur le screenshot de @phil66 que le séparateur des milliers est "." et pas " ".
Çà viendrait-y pas de là ?

Cliquez pour agrandir...

J'allais poser la même question...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Août 2023

• #41

ok merci
en attendant j'ai essayé sur un tableau structuré et même avec le qarobase sur la colonne mes résultats sont corrects
et cela même !!! avec les nombres abrégés

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #42

j'ai beau tout essayer pour que ca me coupe le nombre comme ça et rien y fait

Cliquez pour agrandir...

Ce serait pas une affaire de 32/64 bits ? Soit Office, soit Windows soit les 2.

 

Vote positif -1 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #43

Chez moi ton fichier fonctionne et je suis en Windows 64 et Office 32.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 9 Août 2023

• #44

re
chez moi le pc fixe est en w64 et office 32 2013 et le pc portable (le petit dernier) est en w11 et 365 64 bits
je n'ai pas de problème sur l'un et l'autre
et le code de ma fonction n'utilise pas d'object ou fonctions vb particulières
le principe de ma fonction

1. je récupère le string du value(donc sans formatage)
2. je formate le decimal pour vba(point ou virgule)
3. je coupe en deux(entier/decimale)
4. je boucle de 1 a (2 si decimale)
5. parti de la je coupe les partie par serie de 3 chiffres)

partie de la avec mes series de 3 chiffre XYZ
X c'est pour les centaine
Y c'est pour les dizaine
Z c'est pour les unité
pour la france je traite les dizaines le 9x et le 7x(je descend le premier chiffre de 1
exemple 91 devient 80 et 11 soit quatre-vingt-onze
pour la belgique on change rien puisque c'est 90 et 1 soit nonante-et-un
+quelque aménagement orthographique
mon moteur est d'une simplicité enfantine d'ailleurs dans les ressource vous l'avez le moteur de base sans considération monétaire

ainsi par exemple
36455893,45
sera traité comme suit
format decimal
36455893.45
entier=036455893

decimal=045

maintenant boucle sur les deux en segmentation de trois chiffres
pour l'entier
036 soit trente-six millions
455 soit quatre-cent-cinquante-cinq mille
893 soit huit-cent-nonante-trois

pour le décimal
045 quarante-cinq

quelques correction orthographiques du genre "un mille" c'est "mille" etc....

a la fin on regroupe le tout avec euro( ou ce que vous voulez )et centime(s) a la fin

terminé

 

Dernière édition: 9 Août 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Août 2023

• #45

En effet, devrait pas y avoir de problème, d'ailleurs je n'en ai pas.
Je remarque que ton paramètre est String, ce qui implique une conversion implicite entre Double et String par Excel lorsqu'il passe la valeur. Va savoir si c'est pas là qu'il y a un problème...

Tu devrais essayer de passer ton paramètre en Variant, vérifier que c'est bien un VarType = vbDouble et faire un Cstr(Double) juste pour voir.

VB:

Function NbToLettresFSB(Nombre As Variant, Optional region As String = "")
    Dim It, TR, diz, Ul, c, d, u, dix, I&, Tranche, monnaie$, Ctme$, Chain$, T, X&, Ch, Et$, Entier$, Dec$, de, q
    Tranche = Array(" nonilliard", " nonillion", " octilliard", " octillion", " septilliard", " septillion", " sextilliard", " sextillion", " quintilliard", " quintillion", " quadrilliard", " quadrillion", " trilliard", " trillion", " billiard", " billion", " milliard", " million", " mille", "")
    Ul = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf")
    diz = Array("", "dix", "vingt", "tre nte", "quarante", "cinquante", "soixante", "soixante-dix", "quatre-vingt", "quatre-vingt-dix", "cent")
 
    If Not VarType(Nombre) = vbDouble Then NbToLettresFSB = "La valeur passée n'est pas un nombre!": Exit Function
    Chain = Replace(CStr(Nombre), ".", ",")    'reformatage du nombre avec virgule
    'MsgBox "<" & Chain & ">"

 

Vote positif 0 Vote négatif