Probleme avec la fonction SpellNumber

Résolu/Fermé
alex2303 - 1 juil. 2013 à 10:42
f894009
Messages postés
16646
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 août 2022
- 1 juil. 2013 à 14:45
Bonjour,

J'ai appliqué la fonction SpellNumber à une cellule, la fonction marche parfaitement, cependant j'aimerai que l'écriture qui apparait en Anglais ne prennent pas les décimales. Aussi, je me suis assuré que le format de cellule à laquelle se réfère le texte est bien en décimal=0 mais le texte prend en compte les cenitmes.

Merci du soutien

Cordialement
A voir également:

4 réponses

f894009
Messages postés
16646
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 août 2022
1 648
Modifié par f894009 le 1/07/2013 à 11:22
Bonjour,

si vous ne voulez pas de decimale(s):

dans la fonction SpellNumber,mettre la ligne Cents en commentaire

    If DecimalPlace > 0 Then
    '    Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
       MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If



et

'Select Case Cents
' Case ""
' Cents = " and No Cents"
' Case "One"
' Cents = " and One Cent"
' Case Else
' Cents = " and " & Cents & " Cents"
'End Select


Bonne suite
0
Merci beaucoup!
0
Re,

Autre information:

Je m'appercois que le texte est suivit du mot "dollars", est t'il possible de le transformer en Euros (€), ou de rien voir appaitre(ni dollars, ni euros) ???

Encore merci

Alexis
0
f894009
Messages postés
16646
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 août 2022
1 648
1 juil. 2013 à 14:45
Re,

Dans le code de la fonction, remplacez le mot Dollards par Euros!!!
0