separation des caracteres

Dim nb As Byte 'déclare la variable nb
nb = Len(TextBox1.Value) - 1 'définit la variable nb (nombre de caractère du Textbox1 - 1)
Dim vari() As String 'définit le tableau (de variables) vari
ReDim vari(nb) 'redimensionne le tableau vari (de 0 à nb éléments)
'boucle sur nb + 1 éléments (de 0 à nb)
For x = 0 To nb
vari(x) = Mid(TextBox1.Value, x + 1, 1) 'définit la variable vari(x)
Next x 'prochaine élément de la boucle
'la première lettre de la TextBox1 = vari(0), la seconde = vari(1), la troisième = vari(2).... jusqu'à vari(nb)

Cliquez pour agrandir...