Pouvez vous me précisez le logiciel utilisé pour la saisie des chiffres?

Bonjour, jissou1.
Je voudrais vous remercier de vous être interessé à mon problème du 23/06/2006 se rapportant à la conversion d'un montant saisie en chiffes, en lettres.
Pour vous répondre, je dirai que c'est dans le logiciel Excel que je fais les saisies.

Merci de répondre et à bientôt.

Bonjour,

Ci-dessous une fonction CHIFLETR que j'ai faite il y a pas mal de temps.
Elle fonctionne pour tout nombre positif ou nul inférieur à 1 milliard.
Elle admet 2 paramètres :
- La monnaie (par défaut : EURO)
- La casse (par défaut : majuscules)

Si on a 12.34 en A1,

CHIFLETR(A1) donne :
DOUZE EUROS ET TRENTE-QUATRE CENTIMES

CHIFLETR(A1;"FRANC") donne :
DOUZE FRANCS ET TRENTE-QUATRE CENTIMES

CHIFLETR(A1;;FAUX) donne :
douze euros et trente-quatre centimes


Voici le code :

Function CHIFLETR(Nombre, Optional Monnaie As String = "euro", Optional Maju As Boolean = True)

    ' CETTE FONCTION TRADUIT EN LETTRES UN NOMBRE POSITIF INFERIEUR
    ' AU MILLIARD, AVEC DEUX DECIMALES
    
    ' Elle fait appel à la macro "Codage" ci-dessous,
    ' qui en est indissociable

    Dim TrCent      As Boolean
    Dim CenTouRon   As Boolean
    
    Dim Entiers     As Long
    Dim Centimes    As Long
    
    Dim TrUnités    As Integer
    Dim TrMilles    As Integer
    Dim TrMlions    As Integer
    
    Dim QuUnités    As Long
    Dim QuMilles    As Long
    Dim QuMlions    As Long
    
    Dim Lib         As String
    
    If Nombre > 999999999.99 Then
        CHIFLETR = ""
        Exit Function
    End If
    
    Entiers = Int(Nombre)
    Centimes = (Nombre - Entiers) * 100
    TrUnités = Entiers Mod 1000
    QuUnités = Entiers \ 1000
    TrMilles = QuUnités Mod 1000
    QuMilles = QuUnités \ 1000
    TrMlions = QuMilles Mod 1000
    QuMlions = QuMilles \ 1000
    
    Lib = ""
    
    CenTouRon = (Entiers Mod 100) = 0
    
    If TrMlions <> 0 Then
        Call Codage(TrMlions, Lib, CenTouRon, False)
        If TrMlions = 1 Then
            Lib = Lib & "million "
        Else
            Lib = Lib & "millions "
        End If
    End If
    
    If TrMilles <> 0 Then
        If TrMilles <> 1 Then
            Call Codage(TrMilles, Lib, CenTouRon, False)
        End If
        Lib = Lib & "mille "
    End If
    
    If TrUnités <> 0 Then
        Call Codage(TrUnités, Lib, CenTouRon, True)
    End If
    
    If Entiers >= 2 Then
        Lib = Lib & Monnaie & "s "
    ElseIf Entiers >= 1 Then
        Lib = Lib & Monnaie & " "
    Else
        Lib = "zéro " & Monnaie & " "
    End If
    If Centimes <> 0 Then
        Lib = Lib & "et "
        Call Codage(Centimes, Lib, CenTouRon, False)
        If Centimes = 1 Then
            Lib = Lib & "centime "
        Else
            Lib = Lib & "centimes "
        End If
    End If

    CHIFLETR = Lib
    
    If Maju Then CHIFLETR = UCase(CHIFLETR)

End Function
Sub Codage(Tranche, Lib, CenTouRon, TrCent)

    ' CETTE MACRO EST INDISSOCIABLE DE LA FONCTION CHIFLETR
    ' CI-DESSUS, ET TRADUIT EN LETTRES UNE TRANCHE DE 3 CHIFFRES

    Dim C       As Byte, D As Byte, D1 As Byte, U As Byte
    Dim T00     As Variant
    Dim Tb0     As Variant, Tb1 As Variant, Tb2 As Variant, Tb3 As Variant, Tb4 As Variant
    Dim Tb5     As Variant, Tb6 As Variant, Tb7 As Variant, Tb8 As Variant, Tb9 As Variant
    
    T00 = Array("", "", "deux ", "trois ", "quatre ", "cinq ", "six ", "sept ", "huit ", "neuf ")
    
    Tb0 = Array("", "un ", "deux ", "trois ", "quatre ", "cinq ", "six ", "sept ", "huit ", "neuf ")
    Tb1 = Array("dix ", "onze ", "douze ", "treize ", "quatorze ", "quinze ", "seize ", "dix-sept ", "dix-huit ", "dix-neuf ")
    Tb2 = Array("vingt ", "vingt-et-un ", "vingt-deux ", "vingt-trois ", "vingt-quatre ", "vingt-cinq ", "vingt-six ", "vingt-sept ", "vingt-huit ", "vingt-neuf ")
    Tb3 = Array("trente ", "trente-et-un ", "trente-deux ", "trente-trois ", "trente-quatre ", "trente-cinq ", "trente-six ", "trente-sept ", "trente-huit ", "trente-neuf ")
    Tb4 = Array("quarante ", "quarante-et-un ", "quarante-deux ", "quarante-trois ", "quarante-quatre ", "quarante-cinq ", "quarante-six ", "quarante-sept ", "quarante-huit ", "quarante-neuf ")
    Tb5 = Array("cinquante ", "cinquante-et-un ", "cinquante-deux ", "cinquante-trois ", "cinquante-quatre ", "cinquante-cinq ", "cinquante-six ", "cinquante-sept ", "cinquante-huit ", "cinquante-neuf ")
    Tb6 = Array("soixante ", "soixante-et-un ", "soixante-deux ", "soixante-trois ", "soixante-quatre ", "soixante-cinq ", "soixante-six ", "soixante-sept ", "soixante-huit ", "soixante-neuf ")
    Tb7 = Array("soixante-dix ", "soixante-et-onze ", "soixante-douze ", "soixante-treize ", "soixante-quatorze ", "soixante-quinze ", "soixante-seize ", "soixante-dix-sept ", "soixante-dix-huit ", "soixante-dix-neuf ")
    Tb8 = Array("quatre-vingt ", "quatre-vingt-un ", "quatre-vingt-deux ", "quatre-vingt-trois ", "quatre-vingt-quatre ", "quatre-vingt-cinq ", "quatre-vingt-six ", "quatre-vingt-sept ", "quatre-vingt-huit ", "quatre-vingt-neuf ")
    Tb9 = Array("quatre-vingt-dix ", "quatre-vingt-onze ", "quatre-vingt-douze ", "quatre-vingt-treize ", "quatre-vingt-quatorze ", "quatre-vingt-quinze ", "quatre-vingt-seize ", "quatre-vingt-dix-sept ", "quatre-vingt-dix-huit ", "quatre-vingt-dix-neuf ")
    
    C = Tranche \ 100
    If C <> 0 Then
        If TrCent And CenTouRon And C <> 1 Then
            Lib = Lib & T00(C) & "cents "
        Else
            Lib = Lib & T00(C) & "cent "
        End If
    End If
    D1 = Tranche Mod 100
    D = D1 \ 10
    U = Tranche Mod 10
    
    Select Case D
        Case 0: Lib = Lib & Tb0(U)
        Case 1: Lib = Lib & Tb1(U)
        Case 2: Lib = Lib & Tb2(U)
        Case 3: Lib = Lib & Tb3(U)
        Case 4: Lib = Lib & Tb4(U)
        Case 5: Lib = Lib & Tb5(U)
        Case 6: Lib = Lib & Tb6(U)
        Case 7: Lib = Lib & Tb7(U)
        Case 8: Lib = Lib & Tb8(U)
        Case 9: Lib = Lib & Tb9(U)
    End Select

End Sub

Alors, ça donne quoi ?

Bonjour cher Armojax,
Merci de vouloir m'aider. Mais je n'arrive tjours pas car la compilation indique une erreur à ce niveau.
If Nombre > 999999999.99 Then
CHIFLETR = ""
Exit Function
End If
C'est la ligne CHIFLETR = "" qui est soulignée

Merci de vite me répondre età bientôt

Bonjour Chelouya,

Je ne vois pas pourquoi tu as une erreur de compilation, et c'est difficile à distance de faire un diagnostic. Je viens de copier, à partir de ce post CCM, la macro dans un classeur, et chez moi elle fonctionne parfaitement. Je sais que d'autres également s'en servent sans problème.
Problème de copie ? Quelle version d'Excel as-tu ?

Bonjour, Armojax.

j'utilise la version 2003 d'Excel.
Mais, il faut que vous sachiez que je suis tout à fait débutant en matière de programmation et que je n'y connais pratiquement rien.
Actuellement j'essaie de refaire la manoeuvre avec des amis pour voir si ça marche à mon niveau.

MARCI DE ME SUIVRE - à très bientôt.

Salut, Armojax.
C'est dur pour moi d'y arriver. alors mon souhait est vous me mentionniez votre façon de procéder. c'est à dire où et comment vous collez ce programme que vous avez fait. Comme je l'ai dit je ne suis "bleu" . En un mot dites - moi étape par étape ce que je dois. Mille fois merci.

Boujour chelouya,

Pour installer la macro :
- Ouvrir le classeur Excel, bien sûr
- Faire : Outils / Macro / Visual Basic Editor
Dans la fenêtre qui s'affiche, faire :
- Insertion / Module
Et coller le texte de la macro dans le cadre blanc.
C'est tout.
La fonction est installée.

Bonsoir, Armojax.
C'est encore impossible à mon niveau. Car la macro ne s'exécute pas. Après que j'ai suivi vos récommandations, la conversion en lettres ne s'affiche pas.
Alors si ce n'est trop vous demander, pourriez-vous m'envoyer en ficher attaché un exemple réussi?
Mille fois merci

Bonsoir chelouya,

Tu trouveras un exemple ici :
http://cjoint.com/?hdtgNrz0XI

Bonsoir, Armojax.

Je suis heureux que ça marche et je vous en félicite encore une fois de plus. Car c'était une affaire qui intéressait presque tout le monde dans mon service.

Je voudrais cette fois savoir s'il est possible que ce programme fasse la conversion d'un montant chiffré important sur une ou plusieurs lignes au cas où la partie(cadre) reservée pour la traduction s'avère inssufisante.
Exemple : 199 999 999 francs; cent quatre vingt dix neuf millions neuf cent quatre vingt dix neuf mille neuf cent quatre vingt dix neuf francs.
Recevez mes remerciements .

Bonjour chelouya,

Je suis content que tu aies pu enfin utiliser la fonction.

Tu as la possibilité d'adapter les propriétés de la cellule qui contient le résultat, et d'écrire sur plusieurs lignes dans cette cellule :
- Format / Cellule... / Onglet Alignement
- Cocher la case Renvoyer à la ligne automatiquement

Bonsoir, Armojax.
Comme vous le savez, je ne suis qu'un novice en quête de savoir.
Alors s'il vous plait envoyez -moi un exemple très explicatif comme l'autre fois.
Bien de choses à vous et à l'instant.

Bonsoir,Armojax.
Vous êtes formidable.
En effet ça marche bien.
Est-il possible de vous soumettre la réalisation d'un projet de logiciel libre qui me tient à coeur depuis 5 ans?
Il concerne l'informatisation de la comptabilité nationale des pays africains franconphones.
Par ailleurs puis-je avoir votre e-mail?
Si oui, répondez-moi très vite.

Salut je suis en difficulté en anglais et j aimerais bien que vous aimdiez afin que je puisse m en sortir aidez moi s il vous plait j en ai besoin de votre aide merci

Je veux savoir comment convertir un montant en lettre

Dans word, il y a un truc plus simple:

http://www.leconjugueur.com/frlesnombresword.php

Salut
je ss en difficulte a ecrire un chiffre an tt lettre en euro
exemple : 10 839.80 euro
merci d'avoir m'aider