Microsoft Visual Basic

Essayez ça :

If byDec > 0 Then strCentimes = Chr(10) & strCentimes & " Cts"

Ou vbCrLf à la place de Chr(10) comme l'a proposé Myta

Michel

C'est à dire ?
Quel résultat obtenez-vous ?

Votre résultat ne colle pas avec votre code.
Vous écrivez "Dinars" avec un s alors que votre code recherche "Dinar".
Etes-vous sûr que votre strDev = "Dinar" est correct ?
Si c'était le cas, votre résultat devrait être soixante Cts et non centimes.

Pouvez-vous mettre la ou les lignes qui suivent votre code ou du moins celles qui servent à compiler le résultat ?

Michel

Je comprends mieux pourquoi ça ne marche pas : ce n'est pas un affichage direct d'une chaine comme on pouvait l'imaginer dans votre question, mais c'est une fonction autrement plus complexe que les simples lignes que vous nous avez présenté au départ.
Et il y a du monde !
Compte tenu de la complexité de votre code, il faut du temps pour comprendre tout le fonctionnement avant de pouvoir y apporter une solution.

Il y a là en tout cas de quoi intéresser les amateurs de beaux codes !

Michel

Après analyse de votre code ci-après en gras les lignes à ajouter dans la fonction publique :

If Devise = 0 Then
ConvNumberLetter = ConvNumberLetter & _
ConvNumDizaine(byDec, Langue, True) & strCentimes
ElseIf Devise = 2 Then
ConvNumberLetter = ConvNumberLetter & _
Chr(10) & ConvNumDizaine(byDec, Langue, False) & strCentimes
Else
ConvNumberLetter = ConvNumberLetter & _
ConvNumDizaine(byDec, Langue, False) & strCentimes
End If

Et pour que l'affichage se fasse sur 2 lignes, il faut autoriser le renvoi à la ligne dans la cellule, sinon, c'est un carré qui s'affiche.

Je vous signale aussi un problème sur le numéro de référence des devises. Il est possible de mettre un code > 3, auquel cas l'affichage inclus un s inutile et devient incompréhensible.
Pour corriger, je propose de mettre la devise à 0 si la valeur saisie est supérieure à 3. Pour se faire, rajouter la ligne en gras avant le select case comme suit :

.........
Exit Function
End If
End If
If Devise > 3 Then Devise = 0
Select Case Devise
Case 0
If byDec > 0 Then strDev = " et "
Case 1
...........

Cordialement,

Michel

Bonsoir,

Ca ne marche pas parce que vous n'avez pas autorisé le renvoi à la ligne de la cellule comme je vous l'avais indiqué.

Reprenez mon message. J'ai écrit :
"Et pour que l'affichage se fasse sur 2 lignes, il faut autoriser le renvoi à la ligne dans la cellule, sinon, c'est un carré qui s'affiche. "
Or vous avez un carré dans votre exemple.

Pour afficher sur 2 lignes : Format/Cellule/Alignement, cliquer sur "Renvoyer à la ligne automatiquement"
C'est obligatoire si vous voulez le résultat sur 2 lignes.
Et pour pérenniser ce format sur votre document, je vous conseille aussi de régler sur ce même onglet le positionnement vertical sur "Centré".
Enfin, il faut aussi régler la hauteur de la ligne à 32 pour être sûr que l'affichage pourra se faire sur 2 lignes. (Format/Ligne/Hauteur)

J'ai cherché une méthode pour que ce réglage se fasse automatiquement suivant la devise sélectionnée, sans succès. Il semble impossible de modifier la hauteur de ligne sur le résultat d'une fonction publique. Mais je me trompe peut-être.

En attendant, si vous faites les réglages que je vous ai indiqué, votre montant en Dinar apparaîtra sur 2 lignes comme vous le souhaitez. Les autres montants seront affichés dans le même cadre au centre sur une ligne.

Quant à mettre les centimes en chiffres (votre remarque sur votre exemple), il faudrait encore rechercher les lignes à modifier ce qui n'est pas simple, et c'est à mon avis un travail peu utile qui risquerait de perturber le bon fonctionnement de la macro.

Petite modification à effectuer sur votre macro :

Supprimer celle-ci en gras demandé dans mon dernier post :

.........   
Exit Function   
End If   
End If   
If Devise > 3 Then Devise = 0   
Select Case Devise   
Case 0   
If byDec > 0 Then strDev = " et "   
Case 1   
...........

Et insérer ces lignes en gras :

Public Function ConvNumberLetter(Nombre As Double, Optional Devise As Byte = 2, _   
Optional Langue As Byte = 0, _   
Optional Casse As Byte = 3, _   
Optional ZeroCent As Byte = 0) As String   
Dim dblEnt As Variant, byDec As Byte   
Dim bNegatif As Boolean   
Dim strDev As String, strCentimes As String   

If Nombre < 0 Then   
bNegatif = True   
Nombre = Abs(Nombre)   
End If   
If Devise > 3 Then Devise = 2   
If Langue > 2 Then Langue = 0   
If Casse > 3 Then Casse = 3   
dblEnt = Int(Nombre)   
byDec = CInt((Nombre - dblEnt) * 100)   

C'est pour éviter de rentrer des valeurs hors plage de saisie. Les valeurs sont alors mises par défaut.

Michel

Y'a pas de quoi !
(une réponse serait la bienvenue et si c'est ok merci de passer le sujet comme résolu)