Bonjour,

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Teste(ByVal password As String, ByVal intMax As Integer)
        Dim Allchars As String = "abcdefghijklmnopqrstuvwxyABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
        Dim x As Integer = 0
        Do While (x <= intMax)
            For Each ch As Char In Allchars
                If (ch = password) Then
                    TextBox3.Text = ch
                    Exit For
                Else
                    TextBox2.Text = ch
                    TextBox2.Refresh()
                End If
            Next
            x = x + 1
        Loop
    End Sub
j'ai probléme avec la code, il s'arret a la dernière chiffre de mon allchars . je voudrais savoir comment passer aprés une lettre passer 2 lettre aprés 3 lettre ...etc par rapport password.
exemple : a à 9 , aa à 99 , aaa à 999 ....etc

Merci de votre réponse,