Bonjour,
J'ai besoin de manipuler des n° de palettes type SSCC (17 chiffres + 1 chiffre de contrôle) et pour être sur de la saisie, j'ai trouvé sur le net comment fonctionne la clé de contrôle:
En partant de la gauche, le premier chiffre est multiplié par 3, le deuxième par 1, le troisième par 3 et ainsi de-suite. On additionne tout les résultats que l'on soustrait au même nombre arrondi a la dizaine supérieure.
J'aimerais savoir si c'est possible de faire ce genre de contrôle sans passer par VBA.
Sinon j'ai commencé à travailler un code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Function Somme_OK(SSCC as long) as Boolean
Dim i as Byte,j as Byte, somme_controle as Integer
If LEN(SSCC)<>18 Then Exit Function
For i=17 to 1 step -1
    If i MOD 2=0 then j=1 else j=3
    somme_controle = somme_controle + (Left(right(SSCC;i);1)*j
Next i
Somme_OK = Right(SSCC;1) = Arrondi.sup(somme_controle)-somme_controle
'Je ne sais pas comment obtenir l'arrondi a la dizaine supérieur
Je n'ai pas Excel sous a main donc le code a été tapé comme ça...désolé
Merci pour autres solutions