Mettre les chiffres en lettre

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2013

• #2

Re : Mettre les chiffres en lettre

Bonjour


RONIBO:
Tu peux utiliser CARDTEXT
1) Faire CTRL+F9
2) entre les accolades, saisir: =1234\*CARDTEXT
3) mettre à jour les champs

Voir exemple ci-dessous

EDITION: Ci-dessous variantes pour MAJUSCULES et CAPITALES
=1234\*CARDTEXT \*UPPER donnera MILLE DEUX CENT TRENTE-QUATRE
=1234\*CARDTEXT \*CAPS donnera Mille Deux Cent Trente-Quatre

Edition: Bonsoir JCGL

 

Dernière édition: 10 Juillet 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2013

• #3

Re : Mettre les chiffres en lettre

Re

La transcription en macro VBA de mon message précédent.
(avec les limites inhérentes à CARDTEXT (voir sur le net pour détails)
Mode d'emploi:
Saisir un nombre de 1 à 6 chiffres dans un document Word puis lancer la macro ci-dessous:
Code vba:

Sub CHIFLETTRE()
With Selection
.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdMove
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Nombre = Trim(.Text)
.Fields.Add Range:=.Range, _
Type:=wdFieldEmpty, Text:="= " + Nombre + " \* CardText \*UPPER", _
PreserveFormatting:=True
.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
ValeurSeule = .Text
.TypeText Text:=ValeurSeule
End With' transcription d'un code d'Allen Wyatt
End Sub

 

Dernière édition: 10 Juillet 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 10 Juillet 2013

• #4

Re : Mettre les chiffres en lettre

Staple1600 merci beaucoup pour tes solution; je test tout ça 🙂

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 10 Juillet 2013

• #5

Re : Mettre les chiffres en lettre

Re,
C'est pas trop s'que je veux,

J'ai crée un champs ou je saisirais les montant des salaire et entre parenthèse j'aimerais qu'il s'écrive en lettre

ex : Votre nouveau salaire sera de : (ici champs) 1405.90 (mille quatre cent sept et quatre vingt dix)

Jai trouvé ça sur le nette

=Montant\*CardText

Mais le souci c'est que y'a pas les décimales (il me l'ai arrondie)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2013

• #6

Re : Mettre les chiffres en lettre

Re


????
CARDTEXT tu dis?
ca me dit quelque chose, non ?
https://www.excel-downloads.com/threads/mettre-les-chiffres-en-lettre.208311/

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 10 Juillet 2013

• #7

Re : Mettre les chiffres en lettre

Re,

En faisant ça

1) Faire CTRL+F9
2) entre les accolades, saisir: =1234\*CARDTEXT
3) mettre à jour les champs

Voir exemple ci-dessous

EDITION: Ci-dessous variantes pour MAJUSCULES et CAPITALES
=1234\*CARDTEXT \*UPPER donnera MILLE DEUX CENT TRENTE-QUATRE
=1234\*CARDTEXT \*CAPS donnera Mille Deux Cent Trente-Quatre

Ça ce fait pas automatiquement, jsuis obligé de faire la manip a chaque fois, je me trompe?

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 10 Juillet 2013

• #8

Re : Mettre les chiffres en lettre

Tu peux joindre un fichier exemple stp pour que je puisse bien comprendre comment ça marche

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2013

• #9

Re : Mettre les chiffres en lettre

Re

Je préfère le pas à pas (histoire de faire un peu bosser le demandeur 😉)
donc regarde l’exemple ci-dessous ( merci à la faqword)
(clique sur l'image pour l'afficher en taille réelle)


RAPPEL: Pour insérer les {}, il faut faire CTRL+F9

Et pour automatiser le tout, il faut passer par du VBA (comme dans mon message #3 )

 

Dernière édition: 11 Juillet 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juillet 2013

• #10

Re : Mettre les chiffres en lettre

Bonjour à tous

RONIBO:
Toujours sur l'affaire?

Voici une macro qui devrait t'aider à y voir plus clair

Code:

Sub ExempleRONIBO()
Num = InputBox("Saisir un nombre décimal", "CONVERSION NOMBRE EN TEXTE", "1405,90")
Cts = Split(Num, ",")(1)
With Selection
    .Fields.Add Range:=.Range, Type:=wdFieldQuote, Text:="=" & Split(Num, ",")(0) & "\*CARDTEXT \*UPPER"
    .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    .TypeText Text:=" EUROS ET "
    .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    .Fields.Add Range:=.Range, Type:=wdFieldQuote, Text:="=" & Cts & "\*CARDTEXT \*UPPER"
    .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    .TypeText Text:=" CENTIMES."
    .Fields.Update
End With
ActiveDocument.Fields.Unlink
End Sub

PS: Pour voir les champs, mettre en commentaire, la dernière ligne de la macro.

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 11 Juillet 2013

• #11

Re : Mettre les chiffres en lettre

Bonjour le forum

Oui, j viens de me réveiller lol, je regarde ça 🙂

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 11 Juillet 2013

• #12

Re : Mettre les chiffres en lettre

re,
Regarde mon résultat staple1600

Ce lien n'existe plus

Pour les macros je regarde après, j'aimerais comprendre ça déjà

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juillet 2013

• #13

Re : Mettre les chiffres en lettre

Re


Plus simple de joindre ta pièce joint sur XLD, non ?

NB: Je suis toujours sur un PC avec Office 2003, donc je ne peux pas ouvrir ni les *.xlsx, ni les *.docx

Quelle difficulté rencontres-tu pour utiliser CARDTEXT?
(si difficulté d'usage, voir sur le net en faisant une recherche avec ces mots-clés:
WORD convertir nombres en lettres CARDTEXT )

 

Dernière édition: 11 Juillet 2013

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 11 Juillet 2013

• #14

Re : Mettre les chiffres en lettre

Re,

Je te mets une capture et le fichier en version 2003 🙂

 

Pièces jointes

• Sans titre.png

  1.5 KB · Affichages: 217
• Sans titre.png

  1.5 KB · Affichages: 231
• Sans titre.png

  1.5 KB · Affichages: 226
• 15.doc

  34 KB · Affichages: 174

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juillet 2013

• #15

Re : Mettre les chiffres en lettre

Re

Voir copie d'écran

Propriété du champ texte

NB: Ne pas utiliser le point mais la virgule ( 15.36 non - 15,36 oui )

 

Dernière édition: 11 Juillet 2013

Vote positif 0 Vote négatif