Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre lettre

[libellule85]

Bonjour le forum,

Ci-joint un fichier avec la macro de conversion de nombre en lettres car j'aimerais lors de la conversion quand il y a des cents un "Et" après les euros mais je ne sais comment ajouter celui-ci dans cette macro.
Merci beaucoup pour votre aide

 

[CHALET53]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

Bonjour,

Je ne sais pas si tout le monde a le même problème, je n'arrive pas à ouvrir ton fichier

a+

 

[ralph45]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

Salut CHALET53 et resalut Libellule85,

Je confirme : Excel se lance, mais aucun affichage.

😕

 

[Hicsygrek]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

Bonjour à vous ...

Effectivement le fichier excel ne s'ouvre pas mais il est possible de voir le code.
Par contre j'ai pas les compétences pour répondre à ton problème :s

Peut être mettre "'€uros ET'" à la place de "€uros" ...
A+

 

[pierrejean]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

Bonjour libellule85

Assez complexe d'intervenir sur une telle fonction (sans compter avec la deontologie)
A partir d'une des variantes voila une maniere de contourner ton problème
Si la varainte n'est pas la bonne a ton service pour adapter

 

[tototiti2008]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

Bonjour à tous,

Peut-être modifier la partie là

If byDec = 0 Then
If Devise <> 0 Then
If ZeroCent = 1 Then ConvNumberLetter = ConvNumberLetter & " et zéro Cent"
End If
Else
If Devise = 0 Then
ConvNumberLetter = ConvNumberLetter & " et " & _
ConvNumDizaine(byDec, Langue, True) & strCentimes
Else
ConvNumberLetter = ConvNumberLetter & " et " & _
ConvNumDizaine(byDec, Langue, False) & strCentimes
End If
End If

 

[libellule85]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

bonjour Chalet53,Ralph45, Hicsygrek, PierreJan, Tototiti2008,

Tout d'abord merci pour vos réponses c'est sympa

@ Chalet53, Ralph45 : effectivement quand on clique sur le fichier il n'y a aucun affichage il faut aller dans le VBA pour voir le code.

@ Hicsygrek, PierreJean, Tototiti2008 : je vais essayer vos solutions, je vous tiens au courant

 

[libellule85]

Re : Où mettre un "Et" quand il y a des cents après les euros dans conversion nbre le

re,

PierreJean et Tototiti2008 vos deux solutions sont impeccables merci beaucoup pour votre aide
@ +