Alors voila le probleme , sur mon code en VB6 :
Private Sub entrer_code_hexa_Change()
Dim tableau_hexadecimal(17) As String
Dim valeur_hexadecimal As String
Dim un_caractere_valeur_hexadecimal As String
Dim un_caractere_entrer_code_hexa As String
Dim resultat As String
Dim i As Integer
Dim j As Integer
Dim longueur_entrer_code_hexa As Integer
resultat = ""
valeur_hexadecimal = "#0123456789ABCDEF"
longueur_entrer_code_hexa = Len(entrer_code_hexa.Text)
For i = 1 To 17 Step 1
un_caractere_valeur_hexadecimal = Mid(valeur_hexadecimal, i, 1)
tableau_hexadecimal(i) = un_caractere_valeur_hexadecimal
Next i
i = 0
If longueur_entrer_code_hexa < 7 Then
For i = 1 To longueur_entrer_code_hexa Step 1
un_caractere_entrer_code_hexa = Mid(entrer_code_hexa.Text, i, 1)
For j = 1 To 17 Step 1
If un_caractere_entrer_code_hexa = tableau_hexadecimal(j) Then
resultat = resultat & un_caractere_entrer_code_hexa
Else
MsgBox "Veuillez entrer une valeur héxadécimal valide SVP"
End If
Next j
Next i
Else
MsgBox "Veuillez entrer une valeur héxadécimal valide SVP"
End If
End Sub
Lorsque je l'exécute et que je rentre une valeur héxadécimal le programme me répète ma message box autant de fois que la boucle j le stipule ! C'est la que je comprend pas , car je précise bien que : If un_caractere_entrer_code_hexa = tableau_hexadecimal(j)
et le programme passe direct dans le sinon, ca veudrai dire que vb n'accepte pas de comparer une variable avec un tableau ? c'est complètement improbable , bref je NEED votre aide !
d'avance
pour l'indantation qui ne s'éffectue pas...