A voir également:
- Chiffres² en texte, SVP
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Mettre un texte en majuscule - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Texte en gras - Guide
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"
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.
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.
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
