Convertir chiffres en texte...

[William]

Bonjour à Tous,

Une petite question qui me préoccupe...

En VBA, comment convertir "320" en "Trois cent vingt" (et plus si affinité... lol) ??

Je sais, ce n'est pas métaphysique comme question... Mais bon...

Merci d'avance pour votre aide.

William

 

[Jean-Marie]

Bonjour,

Je ne suis pas le créateur de ce fichier, je crois que c'est Ti

@+Jean-Marie

 

[William]

Waouh, Bravo Ti, et Merci Jean-Marie,

Je n'aurais jamais cru que c'était si complexe de transformer des chiffres en lettres... On trouve vraiment tout ce dont on a besoin sur ce Forum,

Merci encore !

Au fait, j'ai quelque peu modifié la macro, concernant les décimales (ben vouis, ça ne faisait pas super clean quand on tapait 23 et que le résultat était "vingt trois", sans euros...

A priori, ça fonctionne...



If T3 <> "" Then
If Resultat <> "" Then
If Resultat = "un " Then Devise = "euro"
Resultat = Resultat & Devise & " et " & T3 & centime
Else
'!si tu mets ça, tu supprimes tout ce qu'il y avait
'auparavant dans ta variable !!
'Resultat = T3 & ""
End If
Else
If Resultat <> "" Then
Resultat = Resultat & Devise
End If
End If

A Très bientôt,

William

 

[GM]

Bonjour,

comme la commande cherche ne fonctionne pas actuellement, regarde dans le fichier joint

Gérard

 

[Ti]

Petite précision, je crois que le fichier d'origine était de Cathy, j'ai dû juste le corriger un peu, mais il existe de nombreux autres programmes permettant de tranformer des nombres en texte (sur la partie téléchargement de ce site, il doit y en avoir, si je ne me trompe).

 

[William]

Re-bonjour,

Merci à Tous pour votre aide précieuse.

Avec ces deux fichiers, je devrais arriver à un bon résultat.

A bientôt,

William