jerome57440
Messages postés40Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention 8 juillet 2008
-
25 mars 2008 à 09:13
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
25 mars 2008 à 09:38
bonjour,
j'ai un code pour cryper le code d'une texte box mais je voudrai faire pareil avec un tableau entier.
A la place des textbox il devrait y avoir un tableau
merci d'avance
Private Sub Command1_Click()
Dim i As Long
Dim nAscii As Integer
Text2.Text = vbNullString
For i = 1 To Len(Text1.Text)
nAscii = Asc(Mid$(Text1.Text, i, 1)) + 3
Text2.Text = Text2.Text & Right$("00" & nAscii, 3)
Next i
Text3.Text = Text2.Text
End Sub
Private Sub Command2_Click()
Dim i As Integer
Dim nAscii As Integer
Text4.Text = vbNullString
For i = 1 To Len(Text3.Text) Step 3
nAscii = Val(Mid$(Text3.Text, i, 3)) - 3
Text4.Text = Text4.Text & Chr$(nAscii)
Next i
End Sub