Fonction pour convertir un Texte en Nombre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fonction pour convertir un Texte en Nombre

jbesclapez75

Bonjour,

Je souhaite creer une fonction pour convertir un texte en nombre...

exemple:
Je definie dans la fonction que A = 11, B= 12 , C=13 , D=14, E = 15.... espace = 0.

Donc "BEBE" s ecrirait "12151215" alors que "B E B E" s ecrirait "12015012015"...

Je n y connais pas grand chose en VBA, est ce que quelqu un peut m aider svp?

Nic

Publicité

carden 752

Bonjour,

Je vois bien une fonction transformant ton nombre en chaine de caracteres, puis une concatenation de chaines.

Un truc du genre str(B) & str(E) & str(B) & str(E). voila

galopin01

bonjour,
on peut le voir comme ça :

Code :

Function test(ref As Range)
Application.Volatile
If ref.Count = 1 Then
z = ref.Value
k = Len(z)
For i = 1 To k
If Mid(z, i, 1) = " " Then
retour = retour & "0"
Else
retour = retour & Asc(Mid(z, i, 1)) - 86
End If
Next
test = retour
End If
End Function

jbesclapez75

Galopin01 Encore toi!! C est pas la premiere fois que tu m aides... c est vraiment sympa!!!

Je regarde ce que ca donne! et Je repost :-)

Merci encore

jbesclapez75

Galopin, J ai inserer la fonction et je l appele de Excel en faisant reference a un nom mais cela ne me sort pas de chiffre... en gros ca ne traduit pas le nom en chiffre...

Qu est ce que je fait de mauvais?

babasss

tu dois faire "=test(A1)" et en A1 tu mets ton texte

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

jbesclapez75

c est ce que je fait babass mais la cellule me ressort un #NAME?

je precise:
J insere le code VBA. Je sauvegarde la feuille...
en A1 je mets un texte "bebe"
en A2 je tape "=test(A1)"
et je me retrouve avec l erreur #NAME?

Je ne comprends pas. La fonction se nomme TEST, elle est bien presente mais a priori il ne la trouve pas... :-(

babasss

Il faut mettre le code dans un module

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

jbesclapez75

Super !!! Ca fonctionne...
Et maintenant si j ai le chiffre 12151215 pour bebe, comment faire pour traduire le chiffre en texte.... en gros la demarche inverse?
Je suis excite comme une puce... :-)

babasss

Ben tu te débrouilles
En fait, il faut que tu t'assures que les nombres utilisés pour coder tes lettres soient tous de même taille sinon tu vas avoir un petit problème....

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Fonction pour convertir un Texte en Nombre

Sujets relatifs
Fonction récursive et méthodologie sur fonctionnement	appeler une fonction PHP dans une balise HTML
[RESOLU] Utilisation de la fonction WSAAddressToString()	[PHPMailer] PB/Bug "!" dans texte du mail après envoi.
Convertir un fichier latex vers Word ou Openoffice. :-( "On me force"	[VBA] Existe-t'il une fonction capable de trier un tableau?
[Résolu] - [Php] - Fonction Isset	nombre de jours entre deux dates
quelle fonction utiliser?	Formattage du texte en CSS avec white-space
Plus de sujets relatifs à : Fonction pour convertir un Texte en Nombre

Page générée en 0.058 secondes