Chiffres² en texte, SVP

Fermé
TEJANI - 3 oct. 2008 à 16:59
 hafid - 27 mars 2014 à 20:32
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

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"
3
g Messages postés 1263 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
3 oct. 2008 à 17:56
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.
0
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)
0
g Messages postés 1263 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572 > tejani68
9 oct. 2008 à 23:16
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.
0
MERCI BEAUCOUP
C'est fait pour exel office 2003 , Mais je reussie pas a avoir l'emplacement des macros complementaires pour excel office 2007
BONNE NUIT ET REMERCI
0
g Messages postés 1263 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572 > tejani68
10 oct. 2008 à 07:45
Bonjour,

Pour 2007 je ne peux te renseigner.
J'espère que quelqu'un sera en mesure de le faire.

Bonne continuation.
0
MERCI COMME MEME
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
4 oct. 2008 à 12:36
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+
0
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
0