Navigation : DEVELOPPEMENT > VBA
CALCUL DE LA CLE D'UN EAN 13
Voici un petit bout de code pour calculer la clé d'un code EAN13. pour ceux qui veulent savoir ce qu'est un EAN 13, Je vous invite à consulter le lien en pied de page.
LE CODE QUI VA BIEN :)' ean12 = renseignez ici votre EAN sur 12 pour calculer la clé et obtenir l'EAN 13
ean12_ini = ean12
If Len(ean12) <> 12 Or Not IsNumeric(ean12) Then
MsgBox ("Erreur de longueur du code ou de non-numéricité !")
End
End If
facteur = 3
For i = Len(ean12) To 1 Step -1
total = total + Mid(ean12, i, 1) * facteur
facteur = 4 - facteur
Next i
cle = CStr(10 - IIf(total Mod 10 <> 0, total Mod 10, 10))
ean13 = ean12_ini & cle
ean12_ini = ean12
If Len(ean12) <> 12 Or Not IsNumeric(ean12) Then
MsgBox ("Erreur de longueur du code ou de non-numéricité !")
End
End If
facteur = 3
For i = Len(ean12) To 1 Step -1
total = total + Mid(ean12, i, 1) * facteur
facteur = 4 - facteur
Next i
cle = CStr(10 - IIf(total Mod 10 <> 0, total Mod 10, 10))
ean13 = ean12_ini & cle
LES LIENS : Rédigé le : 2004-12-06 11:22:16