1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Enseignant
    Inscrit en
    novembre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : novembre 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut Transformation de chiffres en lettres DIRHAMS sous Excel 2010

    Bonjour.
    Merci de m'aider à trouver une solution pour transformer les chiffres des factures en lettres (avec une majuscule en début de chaque mot) en devise marocaine (Dirhams et Centimes). Merci infiniment.

  2. #2
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Auditeur
    Inscrit en
    juillet 2012
    Messages
    5 429
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Auditeur
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2012
    Messages : 5 429
    Points : 58 024
    Points
    58 024
    Billets dans le blog
    15

    Par défaut

    Salut,

    Une proposition a été faite ici : https://www.developpez.net/forums/d1...l/#post8438898

    Donc à adapter à votre cas.

    Bon courage
    Vous avez envie de contribuer au sein du Club Developpez.com ? Contactez-nous maintenant !
    Vous êtes passionné, vous souhaitez partager vos connaissances en informatique, vous souhaitez faire partie de la rédaction.
    Il suffit de vous porter volontaire et de nous faire part de vos envies de contributions :
    Rédaction d'articles/cours/tutoriels, Traduction, Contribution dans la FAQ, Rédaction de news, interviews et témoignages, Organisation de défis, de débats et de sondages, Relecture technique, Modération, Correction orthographique, etc.
    Vous avez d'autres propositions de contributions à nous faire ? Vous souhaitez en savoir davantage ? N'hésitez pas à nous approcher.

  3. #3
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : juin 2006
    Messages : 5 478
    Points : 14 216
    Points
    14 216

    Par défaut

    Salut, Salam,
    A tester plus à fond
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
    228
    229
    230
    231
    232
    233
    234
    235
    236
    237
    238
    239
    240
    241
    242
    243
    244
    245
    246
    247
    248
    249
    250
    251
    252
    253
    254
    255
    256
    257
    258
    259
    260
    261
    262
    263
    264
    265
    266
    267
    268
    269
    270
    271
    272
    273
    274
    275
    276
    277
    278
    279
    280
    281
    282
    283
    284
    285
    286
    287
    288
    289
    290
    291
    292
    293
    Option Explicit
     
    '-------------------------------------------------------------------------
    '
    '   Devise      =0   Aucune
    '               =1   Euro           €
    '               =2   Dollar         $
    '               =3   €uro           €
    '               =4   Dirham Marocain MAD
    '
    '   Langue      =0   Français
    '               =1   Belge
    '               =2   Suisse
    '
    '   Casse       =0   Minuscule
    '               =1   Majuscule en début de phrase
    '               =2   Majuscule
    '               =3   Majuscule en début de chaque mot
    '
    '   ZeroCent    =0   Ne mentionne pas les cents s'ils sont égal à 0
    '               =1   Mentionne toujours les cents
    '
    '-------------------------------------------------------------------------
    ' Conversion limitée à 999 999 999 999 999 ou 9 999 999 999 999,99
    ' si le nombre contient plus de 2 décimales,il est arrondit à 2 décimales
    '-------------------------------------------------------------------------
     
    Function ConvNumberLetter(Nombre As Double, Optional Devise As Long = 0, _
                                     Optional Langue As Long = 0, _
                                     Optional Casse As Long = 0, _
                                     Optional ZeroCent As Long = 0) As String
    Dim dblEnt As Variant, byDec As Long
    Dim bNegatif As Boolean
    Dim strDev As String, strCentimes As String
     
        If Nombre < 0 Then
            bNegatif = True
            Nombre = Abs(Nombre)
        End If
     
        dblEnt = Int(Nombre)
        byDec = CInt((Nombre - dblEnt) * 100)
        If byDec = 0 Then
            If dblEnt > 999999999999999# Then
                ConvNumberLetter = "#TropGrand"
                Exit Function
            End If
        Else
            If dblEnt > 9999999999999.99 Then
                ConvNumberLetter = "#TropGrand"
                Exit Function
            End If
        End If
     
        Select Case Devise
            Case 0
                If byDec > 0 Then strDev = " virgule "
            Case 1
                strDev = " Euro"
                If dblEnt >= 1000000 And Right$(dblEnt, 6) = "000000" Then strDev = " d'Euro"
                If byDec > 0 Then strCentimes = strCentimes & " Cent"
                If byDec > 1 Then strCentimes = strCentimes & "s"
            Case 2
                strDev = " Dollar"
                If byDec > 0 Then strCentimes = strCentimes & " Cent"
            Case 3
                strDev = " €uro"
                If dblEnt >= 1000000 And Right$(dblEnt, 6) = "000000" Then strDev = " d'€uro"
                If byDec > 0 Then strCentimes = strCentimes & " Cent"
                If byDec > 1 Then strCentimes = strCentimes & "s"
            Case 4
                strDev = " Dirham"
                If dblEnt >= 1000000 And Right$(dblEnt, 6) = "000000" Then strDev = " de Dirhams Marocains"
                If byDec > 0 Then strCentimes = strCentimes & " Centime"
                If byDec > 1 Then strCentimes = strCentimes & "s"
        End Select
     
        If dblEnt > 1 And Devise <> 0 Then strDev = strDev & "s"
        strDev = strDev & " "
        If dblEnt = 0 Then
            ConvNumberLetter = "zéro " & strDev
        Else
            ConvNumberLetter = ConvNumEnt(CDbl(dblEnt), Langue) & strDev
        End If
     
        If byDec = 0 Then
            If Devise <> 0 Then
                If ZeroCent = 1 Then
                    Select Case Devise
                        Case 0 To 3
                            ConvNumberLetter = ConvNumberLetter & "zéro Cent"
                        Case 4
                            ConvNumberLetter = ConvNumberLetter & "zéro Centime"
                    End Select
                End If
            End If
        Else
            If Devise = 0 Then
                ConvNumberLetter = ConvNumberLetter & ConvNumCent(byDec, Langue) & strCentimes
            Else
                ConvNumberLetter = ConvNumberLetter & ConvNumCent(byDec, Langue) & strCentimes
            End If
        End If
     
        ConvNumberLetter = Replace(ConvNumberLetter, "  ", " ")
        If Left(ConvNumberLetter, 1) = " " Then ConvNumberLetter = _
           Right(ConvNumberLetter, Len(ConvNumberLetter) - 1)
        If Right(ConvNumberLetter, 1) = " " Then ConvNumberLetter = _
           Left(ConvNumberLetter, Len(ConvNumberLetter) - 1)
     
        Select Case Casse
            Case 0
                ConvNumberLetter = LCase$(ConvNumberLetter)
            Case 1
                ConvNumberLetter = UCase$(Left$(ConvNumberLetter, 1)) & LCase(Right(ConvNumberLetter, Len(ConvNumberLetter) - 1))
            Case 2
                ConvNumberLetter = UCase$(ConvNumberLetter)
            Case 3
                ConvNumberLetter = Application.WorksheetFunction.Proper(ConvNumberLetter)
                If Devise = 3 Then _
                   ConvNumberLetter = Replace(ConvNumberLetter, "€Uros", "€uros", , , vbTextCompare)
        End Select
    End Function
     
    Private Function ConvNumEnt(Nombre As Double, Langue As Long)
    Dim iTmp As Variant, dblReste As Double
    Dim strTmp As String
    Dim iCent As Long, iMille As Long, iMillion As Long
    Dim iMilliard As Long, iBillion As Long
     
        iTmp = Nombre - (Int(Nombre / 1000) * 1000)
        iCent = CInt(iTmp)
        ConvNumEnt = Nz(ConvNumCent(iCent, Langue))
        dblReste = Int(Nombre / 1000)
        If iTmp = 0 And dblReste = 0 Then Exit Function
        iTmp = dblReste - (Int(dblReste / 1000) * 1000)
        If iTmp = 0 And dblReste = 0 Then Exit Function
        iMille = CInt(iTmp)
        strTmp = ConvNumCent(iMille, Langue)
     
        Select Case iTmp
            Case 0
            Case 1
                strTmp = " mille "
            Case Else
                strTmp = strTmp & " mille "
        End Select
     
        If iMille = 0 And iCent > 0 Then ConvNumEnt = "et " & ConvNumEnt
        ConvNumEnt = Nz(strTmp) & ConvNumEnt
        dblReste = Int(dblReste / 1000)
        iTmp = dblReste - (Int(dblReste / 1000) * 1000)
        If iTmp = 0 And dblReste = 0 Then Exit Function
        iMillion = CInt(iTmp)
        strTmp = ConvNumCent(iMillion, Langue)
     
        Select Case iTmp
            Case 0
            Case 1
                strTmp = strTmp & " million "
            Case Else
                strTmp = strTmp & " millions "
        End Select
     
        If iMille = 1 Then ConvNumEnt = "et " & ConvNumEnt
        ConvNumEnt = Nz(strTmp) & ConvNumEnt
        dblReste = Int(dblReste / 1000)
        iTmp = dblReste - (Int(dblReste / 1000) * 1000)
        If iTmp = 0 And dblReste = 0 Then Exit Function
        iMilliard = CInt(iTmp)
        strTmp = ConvNumCent(iMilliard, Langue)
     
        Select Case iTmp
            Case 0
            Case 1
                strTmp = strTmp & " milliard "
            Case Else
                strTmp = strTmp & " milliards "
        End Select
     
        If iMillion = 1 Then ConvNumEnt = "et " & ConvNumEnt
        ConvNumEnt = Nz(strTmp) & ConvNumEnt
        dblReste = Int(dblReste / 1000)
        iTmp = dblReste - (Int(dblReste / 1000) * 1000)
        If iTmp = 0 And dblReste = 0 Then Exit Function
        iBillion = CInt(iTmp)
        strTmp = ConvNumCent(iBillion, Langue)
     
        Select Case iTmp
            Case 0
            Case 1
                strTmp = strTmp & " billion "
            Case Else
                strTmp = strTmp & " billions "
        End Select
     
        If iMilliard = 1 Then ConvNumEnt = "et " & ConvNumEnt
        ConvNumEnt = Nz(strTmp) & ConvNumEnt
    End Function
     
    Private Function ConvNumDizaine(Nombre As Long, Langue As Long, bDec As Boolean) As String
    Dim TabUnit As Variant, TabDiz As Variant
    Dim byUnit As Long, byDiz As Long
    Dim strLiaison As String
     
        If bDec Then
            TabDiz = Array("zéro", "", "vingt", "trente", "quarante", "cinquante", _
                           "soixante", "soixante", "quatre-vingt", "quatre-vingt")
        Else
            TabDiz = Array("", "", "vingt", "trente", "quarante", "cinquante", _
                           "soixante", "soixante", "quatre-vingt", "quatre-vingt")
        End If
     
        If Nombre = 0 Then
            TabUnit = Array("zéro")
        Else
            TabUnit = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
                            "huit", "neuf", "dix", "onze", "douze", "treize", "quatorze", "quinze", _
                            "seize", "dix-sept", "dix-huit", "dix-neuf")
        End If
     
        If Langue = 1 Then
            TabDiz(7) = "septante"
            TabDiz(9) = "nonante"
        ElseIf Langue = 2 Then
            TabDiz(7) = "septante"
            TabDiz(8) = "huitante"
            TabDiz(9) = "nonante"
        End If
     
        byDiz = Int(Nombre / 10)
        byUnit = Nombre - (byDiz * 10)
        strLiaison = "-"
        If byUnit = 1 Then strLiaison = " et "
     
        Select Case byDiz
            Case 0
                strLiaison = " "
            Case 1
                byUnit = byUnit + 10
                strLiaison = ""
            Case 7
                If Langue = 0 Then byUnit = byUnit + 10
            Case 8
                If Langue <> 2 Then strLiaison = "-"
            Case 9
                If Langue = 0 Then
                    byUnit = byUnit + 10
                    strLiaison = "-"
                End If
        End Select
     
        ConvNumDizaine = TabDiz(byDiz)
        If byDiz = 8 And Langue <> 2 And byUnit = 0 Then ConvNumDizaine = ConvNumDizaine & "s"
        If TabUnit(byUnit) <> "" Then
            ConvNumDizaine = ConvNumDizaine & strLiaison & TabUnit(byUnit)
        Else
            ConvNumDizaine = ConvNumDizaine
        End If
    End Function
     
    Private Function ConvNumCent(Nombre As Long, Langue As Long) As String
    Dim TabUnit As Variant
    Dim byCent As Long, byReste As Long
    Dim strReste As String
     
        TabUnit = Array("", "un", "deux", "trois", "quatre", "cinq", "six", "sept", _
                        "huit", "neuf", "dix")
        byCent = Int(Nombre / 100)
        byReste = Nombre - (byCent * 100)
        strReste = ConvNumDizaine(byReste, Langue, False)
     
        Select Case byCent
            Case 0
                ConvNumCent = strReste
            Case 1
                If byReste = 0 Then
                    ConvNumCent = "cent"
                Else
                    ConvNumCent = "cent " & strReste
                End If
            Case Else
                If byReste = 0 Then
                    ConvNumCent = TabUnit(byCent) & " cents"
                Else
                    ConvNumCent = TabUnit(byCent) & " cent " & strReste
                End If
        End Select
    End Function
     
    Private Function Nz(strNb As String) As String
        If strNb <> " zéro" Then Nz = strNb
    End Function
    Images attachées Images attachées  
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    Enseignant
    Inscrit en
    novembre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : novembre 2017
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

    Merci de vos efforts, seulement je ne sais plus comment intégrer le code dans excel 2010. Merci encore une fois.

  5. #5
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : juin 2006
    Messages : 5 478
    Points : 14 216
    Points
    14 216

    Par défaut

    Salut, le code est à placer dans un module standard sous VBA. De la lecture : Les fonctions personnelles dans Excel
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

  6. #6
    Expert éminent
    Homme Profil pro
    aucune
    Inscrit en
    avril 2016
    Messages
    4 535
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : avril 2016
    Messages : 4 535
    Points : 7 924
    Points
    7 924

    Par défaut

    Bonjour kiki29

    C'est quoi, VBA ? c'est du Excel, çà ?
    Et c'est quoi, un module standard ?
    Et c'est d'ailleurs quoi, un module ?
    Et ..... ?
    et ..... ?
    etc ... ?

    Amitiés


    Voilà un bel exemple de tout ce qui peut arriver dans n'importe quelle entreprise, avec en prime l'aide d'un membre de cette entreprise. C'est LUI, que l'on choisira pour installer à l'aise n'importe quoi. Il suffira de lui dire : tiens : écris donc ce code ici ...(il n'y verra rien ...).

    A itsaer : je suis au passage d'accord pour réparer gratuitement la lampe de bureau de ton patron, s'il se dit des choses intéressantes dans son bureau ... Je suis même d'accord pour supporter moi-même mes frais de déplacement aérien.
    Mais j'ai encore une meilleure idée : je vais t'envoyer une douille que tu installeras toi-même en remplacement de celle en place actuellement.
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro). Ne m'en proposez donc pas.

  7. #7
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : juin 2006
    Messages : 5 478
    Points : 14 216
    Points
    14 216

    Par défaut

    Salut, Salam,

    Clique sur : Sélectionner tout
    Clic Droit : Copier

    Ouvre ton fichier Excel
    Alt F11 pour passer sous VBA
    Menu : Insertion / Module
    Colle dans le module créé

    Sous Excel sur la feuille de calcul concernée
    Sélectionner la cellule où la conversion sera à afficher
    Y insérer la formule =ConvNumberLetter(A123;4;0;3;1) où A123 est la cellule contenant le nombre à convertir
    ou passer par l'assistant : lire Les fonctions personnelles dans Excel
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

Discussions similaires

  1. Conversion chiffres en lettres dirhams excel
    Par benabou dans le forum Microsoft Office
    Réponses: 4
    Dernier message: 14/11/2015, 01h03
  2. Transformée de Fourier d'une gaussienne sous Excel
    Par Funboard29 dans le forum Général Algorithmique
    Réponses: 0
    Dernier message: 14/04/2014, 19h14
  3. Réponses: 1
    Dernier message: 11/04/2012, 17h44
  4. [XL-2007] Transformer un chiffre en lettre
    Par bigboy dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 24/08/2009, 09h30
  5. transformer un chiffre en lettre
    Par kira-3 dans le forum VB.NET
    Réponses: 5
    Dernier message: 15/05/2009, 12h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo