ENCRYPTEUR/DÉCRYPTEUR DE TEXTE

Signaler
Messages postés
91
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
23 mai 2005
-
Messages postés
314
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
31 août 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6887-encrypteur-decrypteur-de-texte

Messages postés
314
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
31 août 2006
1
trop génial, exactement ce que je cherché!
Perso j'ai juste remplacé tes boucles dans "transcript_final" de façon à optimiser un peut le code. C'est moins long que les boucles

'****************************************
For t = 1 To Len(Table)
TheLettre = Mid(TheTexte, r, 1)
'puis on le trouve dans la table et on note la place
posi = InStr(1, Table, TheLettre, 0)
Next t
'****************************************
Messages postés
91
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
23 mai 2005

Nikel c'est ce qu'il me faut ;) 8/10 Continuuuuuuuuu