Convertir texte en nombre

Une petite fonction de ce style devrait faire l'affaire (utilisable en VBA comme
dans une feuille de calcul) :

''''''''''''''''
Function EquivTxt(S)
Dim Arr
Arr = Array("Montréal", "", "", "", "Ottawa", "Atibiti", "", "", "Amos")
EquivTxt = Application.Match(S, Arr, 0)
End Function

Sub essai()
Dim S$
S = "Ottawa"
MsgBox EquivTxt(S)
End Sub
'''''''''''''''

ou
=EquivTxt("Ottawa")

Je te laisse le soin de compléter les 30 arguments dont tu as besoin.

----------
Ange Ounis
----------

J'ai trente possibilités de texte différent et chacun correspond a un chiffre
différent.

Exemple:
Ottawa donnerai 5
Montréal donnerai 1
.....

merci beaucoup

Bonsoir,

Peut-ëtre que :
http://cjoint.com/?ekxwf7xrBn

Qu'en penses-tu ?
Serge




"4cass11" <4cass11@discussions.microsoft.com> a écrit dans le message de
news: 0DF3ED58-F2CA-4CE9-A641-1D8278B743E9@microsoft.com...

J'ai trente possibilités de texte différent et chacun correspond a un
chiffre
différent.

Exemple:
Ottawa donnerai 5
Montréal donnerai 1
....

merci beaucoup

FANTATISQUE MERCI A VOUS DEUX!!!!

Bonsoir,

Peut-ëtre que :
http://cjoint.com/?ekxwf7xrBn

Qu'en penses-tu ?
Serge




"4cass11" <4cass11@discussions.microsoft.com> a écrit dans le message de
news: 0DF3ED58-F2CA-4CE9-A641-1D8278B743E9@microsoft.com...

J'ai trente possibilités de texte différent et chacun correspond a un
chiffre
différent.

Exemple:
Ottawa donnerai 5
Montréal donnerai 1
....

merci beaucoup