Chiffres² en texte, SVP
TEJANI
-
hafid -
hafid -
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.-
bonjour , et merci
j'ai reussi a avoir mes chiffres en dirhams selon vos conseils mais pas les centimes si t'a un conseil à me donner je te remircie infinement
exemple 1200.50( mille deux cent dirhams et cinquante centimes)- Bonsoir,
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.
-
-
-
-
Bonjour,
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
