Probleme avec la fonction SpellNumber
Résolu/Fermé
alex2303
-
1 juil. 2013 à 10:42
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 1 juil. 2013 à 14:45
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 1 juil. 2013 à 14:45
A voir également:
- Cents = gettens(left(mid(mynumber, decimalplace + 1) & _ "00", 2))
- Fonction si et - Guide
- Spellnumber en français ✓ - Forum Excel
- Snapchat ils m'ont ajouté par la fonction recherche - Forum Snapchat
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Programmation
- Fonction somme excel - Guide
4 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 1/07/2013 à 11:22
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
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
