Cacher une partie du code VBA ! (pour les plus avertis d'entre vous)

Function Codage(Info As String, Clef As Integer) As Variant '----------------------------------
Dim Table(10) As String
Dim Copie(10) As String
Dim Indexe As Integer
Dim Position As String
Dim tirage As Integer
Position = "1,2,3,4,5,6,7,8"
For Indexe = 1 To 8
Table(Indexe) = Asc(Mid(Info, Indexe, 1)) * 3 & Chr(48 + Indexe)
Next Indexe
For Indexe = 1 To 8
encore:
tirage = Int(Rnd(Timer / (3.1415 * Clef)) * 8) + 1
If InStr(1, Position, tirage) = 0 Then GoTo encore
Position = Replace(Position, tirage, "")
Copie(Indexe) = Table(tirage)
Next
Codage = Copie
End Function '--------------------------------------------------------------------------------

Cliquez pour agrandir...

Function Décodage(Info As Variant, Clef As Integer) As String '-------------------------------
Dim Indexe As Integer
Dim Table(10) As String
Dim Cible As String
Cible = TypeName(Info)
If Cible = "String" Then
If InStr(1, Info, "Fichier") > 0 Then
Cible = Info
GoTo Sort
End If
End If
Cible = ""
For Indexe = 1 To 8
Table(Right(Info(Indexe), 1)) = Chr(Left(Info(Indexe), 3) / 3)
Next
For Indexe = 1 To 8
Cible = Cible & Table(Indexe)
Next
Sort:
Décodage = Cible
End Function '--------------------------------------------------------------------------------

Cliquez pour agrandir...

Tibo à dit:

re,

Merci pour l'info

N'étant pas spécialiste macro, une petite question subsidiaire : une fois le nom caché créé, la macro devient donc inutile ?

@+

Cliquez pour agrandir...