Conversion chaîne textuelle en numérique

[JBSB]

Bondoir à tous,

Une petite question : il me semble avoir déjà vu un sujet similaire passer sur le forum mais je n'étais pas intéressé à l'époque. La recherche étant désactivée aujourd'hui, je ne peux le retrouver. Alors voilà, quelqu'un pourrait-il me dire comment convertir une chaîne textuelle en un code numérique la représentant ???

Merci d'avance !

Bonne soirée.

JBSB.

 

[Zon]

Salut,

Quand tu parles de code numérique je suppose que tu parles des codes Ascii:

Function Num(ByVal Chaine as String)
Dim I&
For I = 1 To Len(Chaine)
Num = Num & Asc(Mid(Chaine, I, 1))
Next I
End Function

A+++