Probleme avec la fonction SpellNumber
Résolu
alex2303
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Cents = gettens(left(mid(mynumber, decimalplace + 1) & _ "00", 2))
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Fonction remplacer sur word - Guide
- Fonction somme excel - Guide
4 réponses
Bonjour,
si vous ne voulez pas de decimale(s):
dans la fonction SpellNumber,mettre la ligne Cents en commentaire
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
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
