Probleme avec la fonction SpellNumber Résolu

Question

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

f894009 · Answer

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

alex2303 · Answer

Merci beaucoup!

alex2303 · Answer

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

f894009 · Answer

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

Probleme avec la fonction SpellNumber

4 réponses

Discussions similaires

Newsletters