RE c'est pour les pro ??

[Franck]

TVoila - dans un textbox j'ai un texte au hazard 'DJ357NT85btr'
je voudrai créer autant de variable qu'il y a de caracteres dans mon textbox et que chaque variable prene la valeur d'un caractere - Bien sur je ne metrise pas le nombre de caracteres de mon textbox

Merci d'avance et bon courage

 

[_Thierry]

Bonjour Franck, Bonjour le Forum,

Pas très claire ta question...

Voilà ce que j'ai compris :

Option Explicit

Private Sub CommandButton1_Click()
Dim TabContainer() As String, TheString As String
Dim x As Byte, i As Byte

If Me.TextBox1 = '' Then Exit Sub

    For i = 1 To Len(Me.TextBox1)
        ReDim Preserve TabContainer(x)
        TabContainer(x) = Mid(Me.TextBox1, i, 1)
        x = x + 1
    Next

'Pour faire quelque chose
    For i = 0 To UBound(TabContainer)
        TheString = TheString & TabContainer(i) & vbCrLf & vbTab
    Next

MsgBox 'Vous avez tapé ' & UBound(TabContainer) + 1 & ' caractères, comme suit ' & vbCrLf & vbTab & TheString

End Sub

Voir si ça peut te servir... Sinon et bien reformule ta question...

Bon Samedi
@+Thierry

 

[Franck]

Je savais que c'etais pour les pro


Merci a toi