A voir également:
- Chiffres² en texte, SVP
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Formule excel si contient texte alors texte ✓ - Forum Excel
- Mettre un texte en majuscule - Guide
- Transcription audio en texte - Guide
- Recherchev texte ✓ - Forum Excel
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"
=ConvNumberLetter(F12)&" Dirham "& ConvNumberLetter((F7-F12)*100)&" centimes"
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
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.
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.
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
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.
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.
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
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.
Pour 2007 je ne peux te renseigner.
J'espère que quelqu'un sera en mesure de le faire.
Bonne continuation.
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
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+
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
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