Vba excel chiffrement de Vigenère
Résolu
Pierre_4247
Messages postés
9
Statut
Membre
-
Pierre_4247 Messages postés 9 Statut Membre -
Pierre_4247 Messages postés 9 Statut Membre -
Bonjour,
je dois créer un code en VBA Excel pour effectuer un chiffrement de Vigenère, pour obtenir le résultat de la photo ci-jointe.
J'ai commencé mais je suis bloqué, pouvez-vous m'aider à compléter voire modifier mon code VBA.
Mon programme : https://www.cjoint.com/c/JLivDXFm4iR
Merci d'avance
Configuration: Windows / Chrome 87.0.4280.88
A voir également:
- Code vigenere
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
Bonjour Pierre
A mon avis le code pourrait se réduire à cela :
Cdlmnt
Via
A mon avis le code pourrait se réduire à cela :
Sub Bouton1_Cliquer()
Dim txt As String, key As String
txt = Cells(2, 2)
key = Cells(3, 2)
For i = 1 To Len(txt)
Cells(i + 5, 2) = Mid(txt, i, 1)
a = Asc(Cells(i + 5, 2)) - 64
x = x + 1
If x > Len(key) Then x = 1
Cells(i + 5, 3).Value = Mid(key, x, 1)
b = Asc(Cells(i + 5, 3)) - 64
c = a + b
If c > 26 Then c = c - 26
Cells(i + 5, 4).Value = Chr(c + 63)
Next i
End Sub
Cdlmnt
Via
