Discussion :

[LRON84]

Bonjour,

J'ai un code ci dessous pour calculer la clé d'un code barre.
Le problème c'est que lorsque c'est 10, le code devrait mettre 0 et il me met 10 dans la clé, et mon code barre est faux.
Ci joint le code

Merci bcp bcp de l'aide

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
Function Fncleitf(chaine$) As String
     If IsNull(chaine$) Or _
        Not IsNumeric(chaine$) Then Exit Function
     Dim i As Integer, l As Integer
     Dim CarCTL As Integer
     Dim Cle As Integer, ModCar As Integer
     l = Len(chaine$)
     If l Mod 2 = 0 Then
         chaine$ = "1" & chaine$
     End If
     For i = Len(chaine$) To 1 Step -1
         CarCTL = CarCTL + Val(Mid(chaine$, i, 1)) * IIf(i Mod 2 = 0, 1, 3)
     Next i
     ModCar = CarCTL Mod 10
     Cle = IIf(10 - ModCar = 0, 0, 10 - ModCar)
     Fncleitf = chaine$ & CStr(Cle)
End Function

[loufab]

Bonjour,

Après test lorsqu'on passe 10 à la fonction il retourne 1106.

Cordialement,

[LRON84]

Merci pour ta réponse


Le code pour lequel j'essaye de generer la clé, est 1360131000393, la fonction génère comme clé 136013100039310, alors qu'il devrait être 13601310003930.

Il faudrait peut être ajouter une ligne qui remplacerait 10 par 0.

Merci beaucoup