Vba excel chiffrement de Vigenère
Résolu/Fermé
Pierre_4247
Messages postés
9
Date d'inscription
mardi 8 décembre 2020
Statut
Membre
Dernière intervention
17 décembre 2020
-
8 déc. 2020 à 22:31
Pierre_4247 Messages postés 9 Date d'inscription mardi 8 décembre 2020 Statut Membre Dernière intervention 17 décembre 2020 - 9 déc. 2020 à 10:40
Pierre_4247 Messages postés 9 Date d'inscription mardi 8 décembre 2020 Statut Membre Dernière intervention 17 décembre 2020 - 9 déc. 2020 à 10:40
A voir également:
- Vba excel chiffrement de Vigenère
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Word excel gratuit - Guide
- Aller à la ligne excel - Guide
2 réponses
via55
Messages postés
14232
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
30 septembre 2023
2 628
9 déc. 2020 à 03:15
9 déc. 2020 à 03:15
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
Pierre_4247
Messages postés
9
Date d'inscription
mardi 8 décembre 2020
Statut
Membre
Dernière intervention
17 décembre 2020
9 déc. 2020 à 10:40
9 déc. 2020 à 10:40
Nikel, merci !