XL 2021 Code Ascii

[gg13]

Bonjour,
Je voudrai savoir s’il existe une formule Excel pour transformer une chaine de caractères en code Ascii.
(Pour un seul caractère : CODE(cellule) fonctionne, mais pas pour une chaine )

Pour exemple voici le résultat d’un convertisseur en ligne

	Formule ????	Résultat d'un convertisseur
maconlyonparis	=code ascii	6d 61 63 6f 6e 6c 79 6f 6e 70 61 72 69 73
marseillelensrouen	=code ascii	6d 61 72 73 65 69 6c 6c 65 6c 65 6e 73 72 6f 75 65 6e
brestlimogeavignon	=code ascii	62 72 65 73 74 6c 69 6d 6f 67 65 61 76 69 67 6e 6f 6e

Merci de votre aide
GG13

 

[mapomme]

Bonjour @gg13 ,

Essayez cette formule en B2 à recopier vers le bas (testée sur O365 mais je pense que cette formule fonctionnera aussi avec Excel 2021).
=JOINDRE.TEXTE(" ";VRAI;SIERREUR(MINUSCULE(DECHEX(CODE(STXT(A2;LIGNE($1:$99);1))));""))

nota : si le texte source risque de dépasser 99 caractères, augmenter la valeur 99 dans la formule.
edit : coquille dans la formule et donc dans le premier fichier. Voir la formule corrigée (écrire $1 à la place de $2).

 

[gg13]

Bonjour @gg13 ,

Essayez cette formule en B2 à recopier vers le bas (testée sur O365 mais je pense que cette formule fonctionnera aussi avec Excel 2021).
=JOINDRE.TEXTE(" ";VRAI;SIERREUR(MINUSCULE(DECHEX(CODE(STXT(A2;LIGNE($2:$99);1))));""))

nota : si le texte source risque de dépasser 99 caractères, augmenter la valeur 99 dans la formule.

Merci pour cette réponse rapide.
Je ne comprends rien à cette formule mais elle a l'air de fonctionner correctement.
Merci encore et bonne journée.
GG13

 

[mapomme]

Re @gg13 ,

mais elle a l'air de fonctionner correctement.

Pas vraiment !!!
Désolé ! il y avait une coquille dans ma précédente formule.

J'ai corrigé mon premier message. Utilisez la formule corrigée de ce message et son fichier corrigé.

Rappel de la bonne formule :
=JOINDRE.TEXTE(" ";VRAI;SIERREUR(MINUSCULE(DECHEX(CODE(STXT(A2;LIGNE($1:$99);1))));""))

 

[gg13]

Merci pour cette correction (($1:$99))
GG13

 

[gg13]

Bonjour Job75
Je ne sais pas c'est le convertisseur qui les donne.

ASCII à hexadécimal | Convertisseur de texte en code hexadécimal

Convertisseur de texte ASCII / Unicode en chaîne hexadécimale.

www.rapidtables.org

gg13

 

[mapomme]

Re @gg13,

Dans le fichier joint, il y a une explication pas à pas de la formule en B2 avec visualisation des résultats intermédiaires.

edit : bonjour @job75 ,

 

[TooFatBoy]

Bonjour,

edit : bonjour @job75

Ben où qu'il est ? Et quoi qu'y disait ???

Pour moi dans ce fil de discussion y a pas de Job, mais y a d'la Pomme...

 

[job75]

Bonjour à tous,

J'ai supprimé mon message car je posais une question sans intérêt.

A+

 

[mapomme]

Bonjour @TooFatBoy ,

Ben où qu'il est ? Et quoi qu'y disait ???

Trois p'tits tours et puis s'en va...

job75 avait posé une question puis s'est sans doute ravisé.

Chacun veux ou veux pas. ça me rappelle ICI

edit : nos messages se sont téléscopés @job75.

 

[TooFatBoy]

Chacun fait ce qu'il lui plaît, chacun veux ou veux pas. ça me rappelle ICI

Moi, ce fil me rappelle ça :

Pour moi dans ce fil de discussion y a pas de Job, mais y a d'la Pomme...

 

[TooFatBoy]

J'ai supprimé mon message car je posais une question sans intérêt.

Moi j'en pose beaucoup des comme ça.
Mais toi, je pense sincèrement que ce serait bien la première fois !



Désolé pour le HS.
Je stoppe donc ici.

 

[patricktoulon]

juste en passant(comme un cheveux sur la soupe)
et ceux qui n'ont pas joindre.texte comment font ils avec cette matrice?
=DECHEX(CODE(STXT($A2;--LIGNE($1:$99);1)))

 

[mapomme]

Bonjour @patricktoulon ,

juste en passant(comme un cheveux sur la soupe)
et ceux qui n'ont pas joindre.texte comment font ils avec cette matrice?
=DECHEX(CODE(STXT($A2;--LIGNE($1:$99);1)))

Ils contemplent tristement la formule et se lamente sur le temps qui passe .

Il me semble bien que joindre.texte existe depuis Excel 2016. Et même si mes souvenirs sont maintenant un peu vagues, je crois bien que Multiplan ainsi que SuperCalc ne la possédaient pas non plus (à vérifier) .

 

[alexga78]

Bonjour à tous,
Pour le fun une solution Power query.

Table.AddColumn(Source, "Custom",
                      (x)=> List.Accumulate(Text.ToList(Record.Field(x,Table.ColumnNames(Source){0})),
                            "",
                            (s,c)=>
                            s &  (if s = "" then "" else " ") & Number.ToText(Character.ToNumber(c), "x")
                            )
                       )

Bonne soirée