XL 2013 macro de convertion

[ToF62]

Bonsoir à tous,

J'aurais besoin de votre aide, j'aimerais me faire un convertisseur texte en ascii, et vise versa, pour jouer au boulot par email, avec les collègues.

La conversion de texte en ascii, j'ai réussi à le mettre en place, comme le souhaiter (merci google et beaucoup d'essais).

Par contre l'inverse je sèche carrément. En sachant que je veux garder le même format.

exemple = "bonjour à tous" en ascii ça donne : chr(98) & chr(111) & chr(110) & chr(106) & chr(111) & chr(117) & chr(114) & chr(32) & chr(224) & chr(32) & chr(116) & chr(111) & chr(117) & chr(115)

Merci d'avance pour votre aide.

ToF

 

[_Thierry]

Bonsoir @ToF62 , le Forum

Sans avoir ouvert ton fichier, voici une piste :

Option Explicit

Sub ASCII_to_TEXT()

MsgBox Chr(98) & Chr(111) & Chr(110) & Chr(106) & Chr(111) & Chr(117) & Chr(114) & Chr(32) & Chr(224) & Chr(32) & Chr(116) & Chr(111) & Chr(117) & Chr(115)

End Sub


Sub TEXT_to_ASCII()
Dim i As Integer
Dim LaPhrase As String, CodeASCII As String
LaPhrase = InputBox("La Phrase", "Titre", "bonjour à tous")

For i = 1 To Len(LaPhrase)
    CodeASCII = CodeASCII & "Chr(" & Asc(Mid(LaPhrase, i, 1)) & ") & "
Next i

MsgBox Left(CodeASCII, Len(CodeASCII) - 2)

End Sub

Bonne soirée
@+Thierry

 

[ToF62]

Merci Thierry

je vais approfondir tout çà de suite.

bonne soirée

 

[ToF62]

Merci Thierry

je vais approfondir tout çà de suite.

bonne soirée

Thierry j'ai testé ta façon, c'est vrai que cela marche que si on utilise un msgbox avec chr() dedans, sinon via un textbox, chez moi, ça ne fonctionne pas.

Bonne soirée

 

[_Thierry]

Re-bonsoir @ToF62 , le Forum

Voici ton "décodeur" digne de la CIA et ex-KGB réunis (LoL)

Bonne nuit
@+Thierry

 

[ToF62]

Bonjour,

Déjà pour commencer un grand merci a toi Thierry pour ton aide.

J'ai modifié à ma sauce, et tout fonctionne nickel, je le partage pour ceux qui veulent jouer avec.

ToF