Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Abs(ca - 127)) Next i décoder = tc End Function
=décoder(A1)
db
Tatanka a écrit :
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Abs(ca - 127))
Next i
décoder = tc
End Function
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Abs(ca - 127)) Next i décoder = tc End Function
=décoder(A1)
db
Jacky
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o))
J'ai comme résultat ceci
'-----------
LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure
'------------
Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db
Longtemps&je&me&suis&couch&de&bonne&heure
--
Salutations
JJ
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news:
utVG5KSoKHA.1548@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Tatanka
Alors peut-être pourras-tu me simplifier mes fonctions.
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Abs(ca - 127)) Next i décoder = tc End Function
=décoder(A1)
db
Alors peut-être pourras-tu me simplifier mes fonctions.
"db" <blue_moon_frXX@_hotmail.com> a écrit dans le message de news: eqPnTUSoKHA.3664@TK2MSFTNGP04.phx.gbl...
Tatanka a écrit :
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Abs(ca - 127))
Next i
décoder = tc
End Function
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
On obtient quelque chose de pas très différent de :
Function décoder$(t$) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Abs(ca - 127)) Next i décoder = tc End Function
=décoder(A1)
db
Tatanka
Curieux. Quand je me fais parvenir ledit texte et que j'utilise la formule =décoder(A1;32767), j'obtiens : Longtemps, je me suis couché de bonne heure. C'était pour vérifier si les caractères que je copie sur MPFE à partir de mes feuilles Excel restent les mêmes.
Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Curieux. Quand je me fais parvenir ledit texte et que
j'utilise la formule =décoder(A1;32767), j'obtiens :
Longtemps, je me suis couché de bonne heure.
C'était pour vérifier si les caractères que je copie sur MPFE
à partir de mes feuilles Excel restent les mêmes.
Serge
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: e2mJvYSoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o))
J'ai comme résultat ceci
'-----------
LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure
'------------
Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db
Longtemps&je&me&suis&couch&de&bonne&heure
--
Salutations
JJ
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news: utVG5KSoKHA.1548@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Curieux. Quand je me fais parvenir ledit texte et que j'utilise la formule =décoder(A1;32767), j'obtiens : Longtemps, je me suis couché de bonne heure. C'était pour vérifier si les caractères que je copie sur MPFE à partir de mes feuilles Excel restent les mêmes.
Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
db
Tatanka a écrit :
Alors peut-être pourras-tu me simplifier mes fonctions.
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(ca + 256 - code Mod 255) Next i décoder = tc End Function
db
Tatanka
Quand on envoie un message codé, il est plus sûr de ne pas mettre d'espace entre les mots. Le même que tantôt : 5870=.69<3.6.<>2<,8>,1²-.+877.1.>;. code : 200. Impec cette fois-ci ?
A+ Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Quand on envoie un message codé, il est plus sûr de ne pas mettre
d'espace entre les mots. Le même que tantôt :
5870=.69<3.6.<>2<,8>,1²-.+877.1.>;.
code : 200.
Impec cette fois-ci ?
A+
Serge
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: e2mJvYSoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o))
J'ai comme résultat ceci
'-----------
LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure
'------------
Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db
Longtemps&je&me&suis&couch&de&bonne&heure
--
Salutations
JJ
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news: utVG5KSoKHA.1548@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Quand on envoie un message codé, il est plus sûr de ne pas mettre d'espace entre les mots. Le même que tantôt : 5870=.69<3.6.<>2<,8>,1²-.+877.1.>;. code : 200. Impec cette fois-ci ?
A+ Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Tatanka
Ça ne fonctionne pas chez moi : Exemple : Code abcdefghijklmnopqrstuvwxyz avec 500 comme code et teste ta fonction de décodage et la mienne.
A+ Bonne fin de soirée, Serge
"db" a écrit dans le message de news:
Tatanka a écrit :
Alors peut-être pourras-tu me simplifier mes fonctions.
Quand on envoie un message codé, il est plus sûr de ne pas mettre d'espace entre les mots. Le même que tantôt : 5870=.69<3.6.<>2<,8>,1²-.+877.1.>;. code : 200. Impec cette fois-ci ?
A+ Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news:
%23JApjsSoKHA.4836@TK2MSFTNGP05.phx.gbl...
Quand on envoie un message codé, il est plus sûr de ne pas mettre
d'espace entre les mots. Le même que tantôt :
5870=.69<3.6.<>2<,8>,1²-.+877.1.>;.
code : 200.
Impec cette fois-ci ?
A+
Serge
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: e2mJvYSoKHA.1544@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o))
J'ai comme résultat ceci
'-----------
LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure
'------------
Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db
Longtemps&je&me&suis&couch&de&bonne&heure
--
Salutations
JJ
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news:
utVG5KSoKHA.1548@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%)
For i = 1 To Len(t)
x = Mid(t, i, 1)
ca = Asc(x)
tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255)
Next i
décoder = tc
End Function
Quand on envoie un message codé, il est plus sûr de ne pas mettre d'espace entre les mots. Le même que tantôt : 5870=.69<3.6.<>2<,8>,1²-.+877.1.>;. code : 200. Impec cette fois-ci ?
A+ Serge
"Jacky" a écrit dans le message de news:
Bonsoir,
Est-ce que vous obtenez une phrase cohérente ?
Après la 3ème "cervoises" cohérente, je ne saurais dire..;o)) J'ai comme résultat ceci '----------- LongtempsÙjeÙmeÙsuisÙcouchéÙdeÙbonneÙheure '------------ Vois-je bien, ou y a t-il des "U" majuscule accentué en guise d'espace
Ceci avec la proposition de db Longtemps&je&me&suis&couch&de&bonne&heure -- Salutations JJ
"Tatanka" a écrit dans le message de news:
Bonsoir,
Si vous collez ce texte :
ËîíæóäìïòYéäYìäYòôèòYâîôâçiYãäYáîííäYçäôñä
en A1 et que utilisez cette fonction :
Function décoder$(t$, code%) For i = 1 To Len(t) x = Mid(t, i, 1) ca = Asc(x) tc = tc & Chr(Application.Max(ca - (code Mod 255), 255 - ((code - ca) Mod 255)) Mod 255) Next i décoder = tc End Function
comme ceci : =décoder(A1;32767)
Est-ce que vous obtenez une phrase cohérente ?
Serge
Tatanka
Quelque chose cloche encore dans ta proposition; par exemple, avec ta fonction, =décoder("k";10) renvoie une valeur d'erreur.
Serge
"db" a écrit dans le message de news:
db a écrit :
Tatanka a écrit :
Alors peut-être pourras-tu me simplifier mes fonctions.