Discussion :

[eddy1975]

Bonsoir le forum,

Je joins en pièce jointe les détails de tous les calculs en fonction du code que j'ai retranscris sur Excel. Je ne trouve pas les clés de contrôle....ni d'où vient l'erreur.
Merci pour votre aide.


https://fr.wikipedia.org/wiki/Relev%...op%C3%A9rateur

[parmi]

Bonjour,

C'est dommage qu'ils ne donnent pas le résultat de leur calcul...
Et comme je suis du Québec, je ne sais pas vraiment ce qu'est ce code de contrôle...
Mais je ne pense pas être loin avec ce 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub TrouverCode()
    Dim CodeOO As String, CodeQ As String, CodeRR As String, Numero As String
 
    CodeOO = Range("C10") & Range("D10")
    CodeQ = Range("F10")
    CodeRR = Range("H10") & Range("I10") & Range("J10") & Range("K10") & Range("L10") & Range("M10")
    Numero = Range("J3")
 
    MsgBox CodeContrôle(CodeOO, CodeQ, CodeRR, Numero)
End Sub
 
Function CodeContrôle(CodeOO As String, CodeQ As String, CodeRR As String, Numero As String)
    Dim I As Long
    Dim Conc As String
    Dim Ordre As String
    Dim a As Integer, b As Integer, c As Integer
    Dim Pos As Integer
 
    Conc = CodeOO & CodeQ & CodeRR & Numero
    Ordre = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+"
 
    For I = 1 To 19
        Pos = InStr(1, Mid(Conc, I, 1))
        a = (1 * a + Pos) Mod 37
        b = (2 * b + Pos) Mod 37
        c = (4 * c + Pos) Mod 37
    Next
    CodeContrôle = Mid(Ordre, a, 1) & Mid(Ordre, b, 1) & Mid(Ordre, c, 1)
 
End Function