bonjour à tous
j'ai des articles qui ont un n°(12 chiffres) et une cle2 (chifrres)je voulais faire un boutton pour retrouver 1 chiffre manquant à partir du premier bits de la cle

j'ai pas reussi a retourner la formulle mathematique donc j'ai fait une boucle avec une sortie quand on trouve le bon resultat (le premier bits de la cle)

mon idee et de faire cette boucle remplacer le chiffre inconnue que j'ai appeler ? par 0 et me servir de i du compteur pour rajouter un chiffre à chaque fois et quand mes 2 valeurs corresponde je sort de la boucle


le probleme
ca marche pas bizar
le plus fous il faut que je valide au moins 8 fois sur mon msgbox pour en sortir et ravoir mon form





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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 'recherche d'un chiffre 
 
        'on isole le 1° bit de la cle et on le met dans x 
        Dim x As Integer
        x = Mid(TextBox3.Text, 1, 1)
 
        'traitement de donnée rentre avec ? on le remplace par 0 pour pas coinser le tout 
        Dim cbehs As String
        Dim cbehs1 As String
        cbehs = TextBox1.Text
        cbehs1 = Replace(cbehs, "?", "0")
 
 
        'lecture du code
        Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String
        Dim m As String
        Dim f As String
        Dim g As String
        Dim h As String
        Dim k As String
        Dim l As String
        Dim o As String
        Dim n As String
 
 
        Dim i As Integer
        For i = 0 To 9 Step 1
 
            'calcule de la clé 
            a = Mid(cbehs1, 1, 1)
            b = Mid(cbehs1, 2, 1)
            c = Mid(cbehs1, 3, 1)
            d = Mid(cbehs1, 4, 1)
            m = Mid(cbehs1, 5, 1)
            f = Mid(cbehs1, 6, 1)
            g = Mid(cbehs1, 7, 1)
            h = Mid(cbehs1, 8, 1)
            k = Mid(cbehs1, 9, 1)
            l = Mid(cbehs1, 7, 1)
            o = Mid(cbehs1, 8, 1)
            n = Mid(cbehs1, 9, 1)
 
 
            'calcule de la clé 1° bits
            Dim som1 As Integer
            Dim som11 As Integer
            Dim som12 As Integer
            Dim som13 As Integer
 
            'calcul de la cle avec i en plus
            som1 = (Val(a) + Val(b) + Val(c) + Val(d) + Val(m) + Val(f) + Val(g) + Val(h) + Val(k) + Val(l) + Val(o) + Val(n) + i)
            som11 = Int(som1 / 11)
            som12 = som11 * 11
            som13 = som1 - som12
 
            'boucle de recherche quand x a la meme valeur que som13 je sort 
            If x = som13 Then Exit For
 
            'affichage du resultat 
            MsgBox("Chiffre trouvé    " & i)
 
            'on continue
        Next i
 
 
 
 
    End Sub
merci