Discussion :

[Zeffire]

Bonjour,
comme énoncé dans le titre j'ai un code VBA qui demande a l'utilisateur d'entrer un mot de passe.
je stock ce mot de passe dans une chaine de type string, jusque la tous va bien...

Mon soucie consiste a récupérer ce contenu caractère par caractère dans un tableau, pour pouvoir par la suite coder le mot de passe....

Ne trouvant pas de fonction, je me demandais si quelqu'un n'avais pas déjà eu le soucie....

Merci d'avance

[loufab]

Bonjour,
Il n'y a pas de fonction pour tout surtout des cas basique comme celui-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim toto() As String
stext = "Un password megasuper long"
'ecriture
For i = 1 To Len(stext) - 1
    ReDim Preserve toto(i)
    toto(i) = Mid(stext, i, 1)
Next
'lecture
For i = 1 To Len(stext) - 1
   Debug.Print toto(i)
Next

Cordialement,

[ucfoutu]

Bonjour,
Il pourra être astucieux d'utiliser pour ce faire (surtout si on doit ensuite chiffrer) directement un tableau d'octets...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
toto = "Un password megasuper long"
   Dim titi() As Byte
   titi = StrConv(toto, vbFromUnicode)
 
'visualisons le résultat
   For i = 0 To UBound(titi)
     MsgBox Chr(titi(i))
   Next