Convertisseur hexa - ascii

Bonjour à tous.

Je vous expose mon "petit : ) " problème et je vous remercie par avance de vous pencher sur mon cas.

Donc, j'ai fais une macro qui convertie la cellule B2 d'HEXA en ASCII.

Je passe donc gràce à cette macro d'une chaîne de caractère numérique à du texte pur.

exemple :

je colle dans la cellule b2 ma chaîne de caractère, je lance ma macro et j'obtiens dans cette même cellule ma chaîne de caractère convertie

0042006f006e006a006f0075007 ------> ce convertie par "Bonjour...."


Mais voilà, parfois la chaîne caractère que j'ai à "coller" contient des retours chariots, des espaces, des ":" ou des "/" et là ma macro ne fonctionne pas ( ne convertie plus ).

Exemple, ici j'ai un retour chariot apès les "-", j'ai des espaces (après la dates etc...)

17/09/2013 10:51:27 -
0042006f006e006a006f0075007
17/09/2013 10:51:27 -
0650020007200e90070

Mon but : Supprimer tous les retours chariots, tout les espaces, tout les ":", les "/" et les "-" de la cellule b2

Avez-vous une idées ?

Et un grand merci pour vos échanges qui sont toujours constructif !!

utilise la fonction Replace :

Code:

---

Range("B2").value = Replace(Range("B2").value, ":", "")

---

Par contre, pour les retour chariots, je te conseille d'utiliser le code ascii justement du retour chariot pour faire ton Replace, avec la fonction Chr(je te dis pas, vu que tu es dedans tu dois le connaitre le code :mrgreen: à Mon souvenir c'est 13 ou 15 mais je suis pas sûr)

Citation:

---

Envoyé par illight

(.../...)Par contre, pour les retour chariots, je te conseille d'utiliser le code ascii justement du retour chariot pour faire ton Replace, avec la fonction Chr(je te dis pas, vu que tu es dedans tu dois le connaitre le code :mrgreen: à Mon souvenir c'est 13 ou 15 mais je suis pas sûr)

---

le piège, c'est que suivant la source, ça sera CHR(13), CHR(10), CHR(13)&CHR(10), ou CHR(10)&CHR(13). Donc c'est un peu plus compliqué que ça à gérer. Mais je pense avoir donné assez d'éléments.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() txt = ReplacChrSpece("ABC" & Chr(9) & "ef" & vbCrLf & "/") End Sub Function ReplacChrSpece(t As String) As String ReplacChrSpece = t ReplacChrSpece = Replace(ReplacChrSpece, Chr(10), "") 'Retour charriau ReplacChrSpece = Replace(ReplacChrSpece, Chr(13), "") 'Fin de ligne ReplacChrSpece = Replace(ReplacChrSpece, Chr(9), "") 'Tabulation ReplacChrSpece = Replace(ReplacChrSpece, "/", "") End Function

---

Avant tout merci pour votre aide.

illight, ta méthode fonctionne mais el_slapper a bien vu mon pb ! : )

rdurupt :

je ne comprend pas cette partie du code :

Code:

---

txt = ReplacChrSpece("ABC" & Chr(9) & "ef" & vbCrLf & "/")

---

Merci à vous !

c'est juste un test pour te montrer que ça fonctionne!