[XL-2016] Code Python sur Excel

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:

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