e

Nouveau venu

Inscrit le :04/10/2013
Dernière activité :05/10/2013 à 00:40
Version d'Excel :2010
Messages
1
Votes
0
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par el.pablo

DateAuteur du sujetSujetExtrait du message
04/10/2013 à 13:56el.pabloAide décryptageVoici mon code de cryptage phrase = InputBox("Quels est la pharse à codé") cle = InputBox("Quels est la clé?") phrase = UCase(phrase) cle = UCase(cle) For i = 1 To Len(phrase) lettreacoder = Mid(phrase, i, 1) If Asc(lettreacoder) >= 65 And Asc(lettreacoder) <= 90 Then If i Mod Len(cle) = 0 The...