XL 2013 transformation texte en code ascii ou autre

[Archeli]

Bonjour,

Je recherche à savoir comment transformé un mot ou une petite phrase en une autre "entité" comme par exemple son code ascii (ABC en 65 66 67) ou bien en changeant les caractères en d'autre (ABC en ERT) de mais de manière non aléatoire.

Je connais déjà la fonction =CODE() mais elle ne me donne que le code de la première lettre.

Merci d'avance

 

[mutzik]

Re : transformation texte en code ascii ou autre

bonjour

Function EncryptText(txt As String) As StringDim lg, car, i


lg = Len(txt)
For i = 1 To lg
    car = car & " " & Asc(Mid(txt, i, 1))
Next
EncryptText = CStr(car)
End Function