Chiffres² en texte, SVP
Bonjour,
MAROCAIN; je cherche a savoir comment peut on transformer en Excel un nombre en texte automatiquement grace a une formule. Exemple: 1200 dhs=Mille deux cent dirhams merci
MAROCAIN; je cherche a savoir comment peut on transformer en Excel un nombre en texte automatiquement grace a une formule. Exemple: 1200 dhs=Mille deux cent dirhams merci
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
pour convertir des chiffres en lettre avec une monnaie n'existe pa dans la fonction "NbLettre.xla" vous pouvez utiliser cette fonction en modifiant "dirham" par votre monnaie
=ConvNumberLetter(F12)&" Dirham "& ConvNumberLetter((F7-F12)*100)&" centimes" -
Bonjour,
Une possibilité avec le code VBA sur http://gerard.g.pagesperso-orange.fr/logexl_05.htm#Convertir les nombres en lettres
Pour obtenir la monaie tu modifies la fonction comme ceci =ConvNumberLetter(A1;0;0)&" "&"dirhams"
Bonne soirée.-
-
@tejani68Bonsoir,
Pour cela le mieux est de modifier le code VBA.
Tu cliques droit sur l'onglet de feuille et tu choisis Visualiser le code.
Dans la partie gauche de l' éditeur tu déroules VBAProject (NbLettre.xla) et tu cliques deux fois sur ModNumLettre.
Dans la partie droite de l'éditeur tu modifies le code (fin de la première partie) comme ci-dessous.
strDev = " dirham"
If byDec > 0 Then strCentimes = strCentimes & " Centimes"
End Select
If dblEnt > 1 And Devise <> 0 Then strDev = strDev & "s"
ConvNumberLetter = ConvNumEnt(CDbl(dblEnt), Langue) & strDev & " " & _
ConvNumDizaine(byDec, Langue) & strCentimes
End Function
soit dirham à la place de dollaret centimes à la place de cent.
Lors de l'utilisation de la fonction la monaie à retenir sera 2.
Bonne soirée. -
-
@tejani68Bonjour,
Pour 2007 je ne peux te renseigner.
J'espère que quelqu'un sera en mesure de le faire.
Bonne continuation. -
-
-
ContributeurBonjour,
Pas besoin de courrir si loin :).
Juste ajouter dirhams en fin
http://www.commentcamarche.net/faq/sujet 11100 vb6 vba transformer nombre en texte
A+ -
Pour cela le mieux est de modifier le code VBA.
Tu cliques droit sur l'onglet de feuille et tu choisis Visualiser le code.
Dans la partie gauche de l' éditeur tu déroules VBAProject (NbLettre.xla) et tu cliques deux fois sur ModNumLettre.
Dans la partie droite de l'éditeur tu modifies le code (fin de la première partie) comme ci-dessous :
Select Case Devise
Case 0
strDev = " Dirham"
If byDec > 0 Then strDev = " Dirham" & ",et"
Case 1
strDev = " Dirham"
If byDec > 0 Then strCentimes = strCentimes & " Cents"
Case 2
strDev = " Dirhams, et"
If byDec > 0 Then strCentimes = strCentimes & " Centimes ttc"
End Select
If Devise > 0 And byDec = 0 Then strDev = " dirhams ttc."
If Nombre < 1 Then strDev = " zero"
If Nombre < 0.1 Then strDev = " zero virgule zero"
If Nombre <= 1.09 Then strDev = " dirham virgule"
ConvNumberLetter = ConvNumEnt(CDbl(dblEnt), Langue) & strDev & " " & _
ConvNumDizaine(byDec, Langue) & strCentimes
End Function
