Fabriquer un codage...

[natorp]

Bonsoir à toutes et tous

merci de m'aider à réaliser un codage de lettres
j'aimerais écrire un texte et automatiquement qu'il soit ré-écrit selon un code

si vous connaissez déjà un sujet ou un petit utilitaire qui existe, je suis preneur

j'ai mis une explication en fichier joint

Cordialement, Gérard

 

[DoubleZero]

Re : Fabriquer un codage...

Bonjour natorp, le Forum,

Si j'ai bien compris, peut-être comme ceci en B9 :

=SI(B8="";"";RECHERCHEH(B8;$B$3:$AA$4;2;0))

Bonne fin de journée.

 

[JCGL]

Re : Fabriquer un codage...

Bonjour à tous,

Un essai par formules

A+ à tous

Édition : Bonjour 00, plus rapide

 

[natorp]

Re : Fabriquer un codage...

Merci doublezero

c'est exactement ça, je cherchais trop compliqué

Bonne soirée, Gérard

Merci JC, c'est exactement l'inverse, je tape le texte en clair et il est codé en dessous, peut-être mon explication n'était pas très claire, bonne soirée à toi...

 

[ROGER2327]

Re : Fabriquer un codage...

Bonsoir à tous

Une autre :

=SI(B8="";"";CHOISIR(CODE(B8)-64;"M";"L";"K";"J";"I";"H";"G";"F";"E";"D";"C";"B";"A";"Z";"Y";"X";"W";"V";"U";"T";"S";"R";"Q";"P";"O";"N"))

​

ROGER2327
#4886

Samedi 21 Décervelage 138 (Chaire du Dr Faustroll, SPs)
29 Nivôse An CCXIX
2011-W03-2T18:09:25Z

 

[Efgé]

Re : Fabriquer un codage...

Bonjour Natorp, Roger, JC ; ) , DoubleZero,
Une version pour le plaisir de participer. Le codage se fait au fur et à mesure de la sasie.
Cordialement

 

[DoubleZero]

Re : Fabriquer un codage...

Bonjour Natorp, Roger, JC ; ) , DoubleZero,
Une version pour le plaisir de participer. Le codage se fait au fur et à mesure de la sasie.
Cordialement

Re-bonjour, Natorp, JCGL, Roger2327, Efgé,

Ah, si seulement je pouvais parler, écrire et compter en VBA !.. Mais, j'ai bien peur que tout espoir me soit interdit .

Excellente soirée.

 

[kiki29]

Re : Fabriquer un codage...

Salut,à titre documentaire une librairie de cryptage sur Large Library of Cryptographic Algorithms for VB Version 2.0

 

[Efgé]

Re : Fabriquer un codage...

Re à tous
DoubleZero, rien n'est jamais interdit...
Je te renvoi sur ma première apparition sur XLD pour que tu comprenne tout ce que l'on peux aprendre grace aux nombreux participants avec un peu de patience et de ténacité ; )
Cordialement

 

[DoubleZero]

Re : Fabriquer un codage...

Re-bonsoir,

Merci, kiki29, pour le lien !

Merci, Efgé, pour les encouragements !

Tout cela est fort touchant.

A bientôt .

 

[JCGL]

Re : Fabriquer un codage...

Bonjour à tous,

Une seule fonction pour le codage et le décodage de phrases.
Une fonction de Ti, je crois...

Option Explicit

Function Codage$(ByVal Mot$)
    Application.Volatile
    Const KMot = "MLKJIHGFEDCBAZYXWVUTSRQPON"
    Dim i%, CodeCar%
    Codage = Mot: Mot = UCase(Mot)
    For i = 1 To Len(Mot)
        CodeCar = Asc(Mid$(Mot, i, 1))
        If CodeCar >= 65 And CodeCar <= 90 Then Mid$(Codage, i, 1) = Mid$(KMot, CodeCar - 64, 1)
    Next i
End Function

A+ à tous