Bonjour =E0 tous et bonne fin d'ann=E9e.
Nul de chez nul en VBA, j'ai copi=E9 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 =3D resultat + "s"
Case "lion", "ions"
resultat =3D resultat + " de"
End Select
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Thierry (ze Titi)
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
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
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
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
On 30 déc, 09:41, Thierry (ze Titi) <ze_titi_retirerc...@tiscali.fr>
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
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