Bonjour,

ma config : win 7 pro en 64 bits et office 2013

quelle fonction utiliser dans EXCEL 2013 pour traduire un nombre en lettres, sachant qu'avant, avec office 2007 et win 7 pro en 32 bits je n'avais pas ce problème...

merci pour votre attention.

, CTXT(......), ça a été toujours ainsi, sauf si tu précède par un ' .... lors de l'écriture ....

Bonjour Danee,

Pourrais-tu développer ta réponse, car je ne suis pas expert en informatique...

merci

ps: avant j'utilisais cette formule : =NBTEXTE(C47;6;0;"euros")

comment procéder pour t'envoyer mon fichier excel ?

Bonjour,

Si la demande est de convertir un nombre en lettres

voir cet exemple avec fonction

http://cjoint.com/?DCkkIsB7tyQ

Bonjour,

lorsque j'ouvre ton fichier, j'ai ce message :

comment faire pour envoyer mon fichier excel ???

merci

accepter l'ouverture des macros au lancement du fichier

sinon il existe des fonctions supplémentaires comme morefunc téléchargeables ici http://www.xcell.excelabo.net/morefunc_download

j'avais utilisé morefunc, j'étais en 32 bits,

maintenant que je suis en 64 bits, ça ne marche plus...

comment faire pour t'envoyer mon fichier excel ?

merci

morefunc existe Télécharger morefunc 2010 64bit gratuit

http://telecharger.logitheque.com/morefunc-2010-64bit.html

je ne sais pas ce que ça vaut !!!!!

pour mettre un fichier sur le forum utiliser cjoint.com par exemple comme je l'ai fait plus haut ce n'ai qu'un exemple

argh... cijoint.com est en anglais

tu n'as pas qq chose en français ?

impossible de télécharger morefunc en 64 bits, le téléchargement ne concerne que le 32 bits...

blrnice a écrit :

argh... cijoint.com est en anglais

tu n'as pas qq chose en français ?

, je ne savais pas que http://cjoint.com/ est du anglais ....

je tombe sur la page suivante : "welcome sur cijoint.com" et après je clique sur quoi ?

désolé pour mes faiblesses...

j'avais tapé cijoint au lieu de cjoint...

voili voilou...

http://cjoint.com/?DCknLKUX7Gc

blrnice

Ne pas oublier d’insérer un module dans ton fichier...

http://cjoint.com/?DCkoEaSry0C

Bonjour petit astucien

j'ai ouvert ton fichier et j'ai toujours " #NOM?

http://cjoint.com/?0CkptCSlryP

tu peux me donner la manip à suivre...

un grand merci

blrnice

ouvre ton fichier, clic droit sur l'onglet "salaire", dans la boite qui s'ouvre clic droit sur "microsoft excel objet", puis 'insertion", puis "module", et tu copie ça:

Function NumText(Nombre As Currency, Optional Unité As String, _
Optional SousUnité As String, Optional no_chiffres As Integer, _
Optional Separateur As String) As String
Dim PartieEntière As Currency, PartieDécimal As Currency
Dim TxtEntier As String, TxtDécimal As String
PartieEntière = Int(Nombre)
TxtEntier = NumTextEntier(PartieEntière)
If no_chiffres > 0 Then
PartieDécimal = (Nombre - PartieEntière) * 10 ^ no_chiffres
TxtDécimal = Format(PartieDécimal, String(no_chiffres, "0"))
End If
NumText = TxtEntier & Unité & Separateur & TxtDécimal & " " & SousUnité
End Function
'-----------------------------------------------------
Function NumTextEntier(ByVal Entier As Currency) As String
Dim no_Classe As Integer, Classe As Integer
If Entier = 0 Then
NumTextEntier = "Zéro "
Else
While Entier > 0
Classe = Entier - Int(Entier / 1000) * 1000
NumTextEntier = TxtClasse(Classe, no_Classe) & NumTextEntier
no_Classe = no_Classe + 1
Entier = Int(Entier / 1000)
Wend
End If
End Function
'-----------------------------------------------------
Function TxtClasse(Classe As Integer, no_Classe As Integer) As String
Dim Centaine As Integer, Dizaine As Integer, Unité As Integer, Unités2Chiffres As Integer
Dim TxtCentaines As String, TxtDizaines As String, TxtUnités As String
Dim TClasses As Variant, Tdizaines As Variant, TUnités As Variant
TClasses = Array("", "mille", "million", "milliard", "billion")
Tdizaines = Array("", "", "vingt", "trente", "quarante", "cinquante", "soixante", "soixante", "quatre-vingt", "quatre-vingt")
TUnités = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", "seize", "dix-sept", "dix-huit", "dix-neuf")
If Classe = 0 Then Exit Function
' Pas de un pour mille
If Classe = 1 And no_Classe = 1 Then
TxtClasse = "mille "
Exit Function
End If

Centaine = Classe \ 100
Unités2Chiffres = Classe Mod 100
Dizaine = Unités2Chiffres \ 10
Unité = Unités2Chiffres Mod 10
' Les centaines -----
If Centaine = 1 Then
TxtCentaines = "cent "
ElseIf Centaine > 1 Then
TxtCentaines = TUnités(Centaine) & " cent" & IIf(Unités2Chiffres > 0, " ", "s ")
End If
' Les dizaines ------
TxtDizaines = Tdizaines(Dizaine)
If Unité = 1 And Dizaine > 1 And Dizaine < 8 Then
TxtDizaines = TxtDizaines & "-et"
End If
If Dizaine = 1 Or Dizaine = 7 Or Dizaine = 9 Then
Unité = Unité + 10: Dizaine = 0
End If
TxtDizaines = TxtDizaines & IIf(Unités2Chiffres = 80, "s", "")
If Unités2Chiffres > 19 And Unité > 0 Then
TxtDizaines = TxtDizaines & "-"
ElseIf Dizaine > 0 Then
TxtDizaines = TxtDizaines & " "
End If
' Les unités -------- Espace si unité > 0
TxtUnités = TUnités(Unité) & IIf(Unité > 0, " ", "")
' La classe --------- un s sauf pour mille
TxtClasse = TClasses(no_Classe) & IIf(no_Classe > 1 And Classe > 1, "s", "") & IIf(no_Classe > 0, " ", "")
' Résultat ----------
TxtClasse = TxtCentaines & TxtDizaines & TxtUnités & TxtClasse
End Function
'-----------------------------------------------------
Referme la boite, enregistre, ça doit fonctionner.

PS:Je fais ça sous excel 2007, mais ça devrait fonctionner sous 2010.

la manipe et simple ouvrir lancer le fichier autoriser les macros

et voilà

le même fichier mais avec un extension xlsm

http://cjoint.com/?DCkpMPjw2m2

ne fonctionne pas avec les négatifs -0,20 €uros par exemple

@ gilbert_rgi

étant plus que nul en excel niveau macros,

peux-tu avoir la gentillesse de me donner la manip à effectuer PAS à PAS...

blrnice a écrit :

@ gilbert_rgi

étant plus que nul en excel niveau macros,

peux-tu avoir la gentillesse de me donner la manip à effectuer PAS à PAS...

Vous pouvez ouvrir le fichier xlsm ?

si oui

mettre dans une cellule =NumText("430,5";" €uro ";" cents ";2;" et ")

si on clique sur le fx on obtient

ce qui donne

quatre cent trente €uro et 50 cents

je ne peux faire mieux

Vous pouvez ouvrir le fichier xlsm ?

ben non, mes fichiers sont en .xls

vraiment désolé de pourrir la vie aux uns et aux autres

blrnice

tu utilises excel 2013 et ton fichier est en xls? Enregistre ton fichier en xlsm (classeur prenant en charge les macros).

Je suis passé sous OFFICE 2013

tous mes fichiers sont en XLS et je les ouvre avec excel 2013

si j'ai bien compris, il faut que pour tous mes fichiers XLS (plus de 300)

je les enregistre sous XLSM avant ouverture...

j'ai bien enregistré mon fichier "paye" sous xlms

mais à son ouverture, je n'ai pas de message me demandant d'activer les macros ???

ben oui c'est ce que je demande depuis le bidu

il faut répondre oui si tu as cette question sinon

une fois ouvert (le fichier) tu peux utiliser la fonction numtexte ????

http://cjoint.com/?0CkrPQJROhD

@ brownie

si tu peux me finaliser la fonction dans la cellule faisant référence C47

merci

et me retourner le fichier

@gilbert_rgi je ne peux pas utiliser la fonction

ça fonctionne sur 2007 il n'y a pas de raison

voilà le fichier avec la fonction

http://cjoint.com/?DCkr251Np6p

ça marche pile poil

mais qu'est-ce que je n'ai pas compris ? mais je persévère...

ça doit être mon grand âge (70)

un super grand merci à tous ceux qui m'ont répondu.

Bonsoir,

Si les fichiers sont en .xls, ils sont au format Excel97-2003, ils fonctionnent sans problèmes sur Excel 2007 et ultérieur. Peuvent contenir des macros, mais faut les activer !

Si les fichiers sont en .xlsx, ils sont au format Excel2007-et ultérieurs. Pour contenir des macros ils doivent alors être enregistrés en .xlsm. Mais faut aussi activer les macros.

A vérifier dans les Options > Centre de gestion de la confidentialité > Paramètres du centre de gestion de la confidentialité > onglet Paramètres des macros : que soient cochés : Désactiver toutes les macros avec notification (notification qui te propose l'activation lorsque classeur contient des macros) et Accès approuvé au modèle d'objet du projet VBA.

Bonsoir Ferrand,

j'ai pris bonne note de tes informations, que je garde précieusement et t'en remercie.

Depuis 2006, je lis avec plaisir la lettre journalière que j'apprécie.

Concernant excel, je maîtrise assez bien les opérations courantes...

Pour la petite histoire, j'ai débuté en 1983 avec multiplan et les codes ascii...

Bonsoir à Tous, avec toute ma reconnaissance...

J'ai cru bon d'apporter une précision que je n'avais pas lue clairement exprimée dans le sujet, pour t'éviter de convertir tous tes fichiers .xls qui peuvent très bien être ouverts et fonctionner avec des macros dans les versions actuelles d'Excel...

Pour la petite histoire, j'ai aussi débuté avec Multiplan, quelques années après toi (la micro-informatique avait mis un peu de temps pour s'implater dans mon entreprise...)

Bonne continuation.

blrnice a écrit :

ça marche pile poil

mais qu'est-ce que je n'ai pas compris ? mais je persévère...

ça doit être mon grand âge (70)

un super grand merci à tous ceux qui m'ont répondu.

Qu'Est-ce que vous n'avez pas compris, hé bien qu'un fichier xlsm est un fichier comportant des macros (code ou procédure en visual basic) ces codes ou procédures sont visibles grâce à un éditeur (VBE) qui se trouve dans Excel
pour plus de précision sur le VBA voir cliquez ici

Message original par blrnice

Bonjour,

ma config : win 7 pro en 64 bits et office 2013

quelle fonction utiliser dans EXCEL 2013 pour traduire un nombre en lettres, sachant qu'avant, avec office 2007 et win 7 pro en 32 bits je n'avais pas ce problème...

merci pour votre attention.

Bonjour,

Si "morefunc" ne fonctionne pas, utiliser "NbLettre.xla" suivant la version de Windows (il y a un fichier d'aide).

@gilbert_rgi

merci pour tes infos,

je vais regarder ça ce soir et normalement je devrais être moins bête...

@Jean

je vais voir ça aussi

je devrais être moins bête...

je n'ai pas dit ça

mais plus informé oui

je sais bien que tu n'as pas dit ça, c'était de l'autodérision..

blrnice a écrit :

impossible de télécharger morefunc en 64 bits, le téléchargement ne concerne que le 32 bits...

Je fonctionne sous w$7 64 bir (Office 2007) et morefuc (génial !) fonctionne très bien!

Attention à le charger dans le répertoire recommandé !

bonjour,

juste tu doit intégrée une macro pour plus d'information tu peut visitez ce site

http://www.chiffreenlettre.com