Chiffres en lettres

Le
luchr
Bonjour à tous et bonne fin d'année.
Nul de chez nul en VBA, j'ai copié sur ce site le code que l'on trouve
pour convertir les nombres en lettres. Ca marche, toutefois, lorsque
le nombre est 100 ou 20 il renvoi cents et vingts, donc avec un "s"
alors qu'il n'en faut pas. Quelqu'un a t-il une solution ?
Voir traitement du "s" ci-dessous.
Merci.
Christian.

'traitement du "s" final pour vingt et cent et du "de" pour million
Select Case varlet
Case "cent", "ingt"
resultat = resultat + "s"
Case "lion", "ions"
resultat = resultat + " de"
End Select
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6342071
Bonjour Christian !

Il se trouve que tu as formulé :
Bonjour à tous et bonne fin d'année.
Nul de chez nul en VBA, j'ai copié sur ce site le code que l'on trouve
pour convertir les nombres en lettres. Ca marche, toutefois, lorsque
le nombre est 100 ou 20 il renvoi cents et vingts, donc avec un "s"
alors qu'il n'en faut pas. Quelqu'un a t-il une solution ?
Voir traitement du "s" ci-dessous.
Merci.
Christian.

'traitement du "s" final pour vingt et cent et du "de" pour million
Select Case varlet
Case "cent", "ingt"
resultat = resultat + "s"
Case "lion", "ions"
resultat = resultat + " de"
End Select


Et avec une petite correction du style :

Select Case varlet
Case "cent", "ingt"
If Len(resultat) > 5 Then resultat = resultat + "s"
Case "lion", "ions"
resultat = resultat + " de"
End Select

?

--
Cordialement,
Thierry

tout pour Access :
http://www.mpfa.info

luchr
Le #6341701
On 30 déc, 09:41, Thierry (ze Titi) wrote:
Bonjour Christian !

Il se trouve que tu as formulé :





Bonjour à tous et bonne fin d'année.
Nul de chez nul en VBA, j'ai copié sur ce site le code que l'on trouve
pour convertir les nombres en lettres. Ca marche, toutefois, lorsque
le nombre est 100 ou 20 il renvoi cents et vingts, donc avec un "s"
alors qu'il n'en faut pas. Quelqu'un a t-il une solution ?
Voir traitement du "s" ci-dessous.
Merci.
Christian.

'traitement du "s" final pour vingt et cent et du "de" pour million
Select Case varlet
    Case "cent", "ingt"
        resultat = resultat + "s"
    Case "lion", "ions"
        resultat = resultat + " de"
End Select


Et avec une petite correction du style :

    Select Case varlet
        Case "cent", "ingt"
            If Len(resultat) > 5 Then resultat = resultat + "s"
        Case "lion", "ions"
            resultat = resultat + " de"
    End Select

?

--
Cordialement,
Thierry

tout pour Access :http://www.mpfa.info- Masquer le texte des messages pr écédents -

- Afficher le texte des messages précédents -


Merci thiery on progresse. Ca marche pour 20 et 100 mais il me cole
toujours un "s" pour 1020 et 1100. As tu une idée ?
Christian


Publicité
Poster une réponse
Anonyme