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
- Excel trier par ordre croissant chiffre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Si et excel - Guide
- Word et excel gratuit - Guide
2 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 742
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 !