T
Tcho!
Guest
Bonjour Msieurs,Dames
Voici mon souci :
Sub test()
a = 1
Text = Worksheets("Feuil1").Cells(1, 1).Value
Clef = Worksheets("Feuil1").Cells(2, 1).Value
LText = Len(Text)
LClef = Len(Clef)
For i = 1 To LText
If a = (LClef + 1) Then a = 1
t = Asc(Mid(Text, i, 1))
c = Asc(Mid(Clef, a, 1))
K = t + c Mod 26
l = Chr(K)
a = a + 1
Next i
End Sub
Je recup du texte dans la cellule A1
Je recup une clé dans la cellule A2
Je compte le nombre de caractères pour les 2 cellules
ensuite ce que je voudrais, C la variable "l" dans une seule cellule
en fait par exemple ma variable Text fait 38 caractères donc je voudrais que "l" fasse 38 caractères dans la même cellule !!
Ai-je été assez clair ??
Merci
Voici mon souci :
Sub test()
a = 1
Text = Worksheets("Feuil1").Cells(1, 1).Value
Clef = Worksheets("Feuil1").Cells(2, 1).Value
LText = Len(Text)
LClef = Len(Clef)
For i = 1 To LText
If a = (LClef + 1) Then a = 1
t = Asc(Mid(Text, i, 1))
c = Asc(Mid(Clef, a, 1))
K = t + c Mod 26
l = Chr(K)
a = a + 1
Next i
End Sub
Je recup du texte dans la cellule A1
Je recup une clé dans la cellule A2
Je compte le nombre de caractères pour les 2 cellules
ensuite ce que je voudrais, C la variable "l" dans une seule cellule
en fait par exemple ma variable Text fait 38 caractères donc je voudrais que "l" fasse 38 caractères dans la même cellule !!
Ai-je été assez clair ??
Merci
