EAN 13

Exemple d’un ISBN nouvelle version.

Pour les livres, le code à barres EAN 13 reprend la structure de l’ISBN[1] aux tirets près, obligatoires pour les codes ISBN-13 mais non codés dans l'EAN-13.

Pour toutes les publications éditées en 2006 ou antérieures, l'EAN commence par 978, suivi du code ISBN à 9 chiffres (ISBN complet amputé de sa clé de contrôle), et terminé par la clé de contrôle EAN. Cet ISBN est aussi appelé Bookland EAN car son préfixe 978 n'est pas l'indicatif d'un pays, il a été créé pour regrouper tous les livres du monde. Ce pays virtuel est surnommé Bookland (« le pays des livres »)[2].

Depuis janvier 2007, tous les codes ISBN des nouvelles publications sont compatibles avec la normes EAN 13. Les anciens codes sont convertis en utilisant le groupe préfixe 978 (encore utilisé pour la plupart des nouvelles publications), mais certains éditeurs reçoivent des codes ISBN à 13 chiffres dans le groupe 979 (ces codes n’ont pas d’équivalent à 10 chiffres).

Pour les publications en série (périodiques tels que journaux, magazines et bulletins), les éditeurs intègrent leur numéro ISSN normalisé à 8 chiffres dans un code EAN à 13 chiffres, en préfixant le code ISSN à 7 chiffres (donc tronqué de sa clé de contrôle) par un groupe de 3 chiffres 977, suivi de deux chiffres à disposition des éditeurs et utilisés souvent comme code prix ou pour codifier les encarts et compléments attachés à la série, et terminé du chiffre clé de contrôle EAN. Contrairement aux codes ISBN à 10 chiffres, il n’existe pas à l’heure actuelle de norme permettant la conversion automatique des codes ISSN à 8 chiffres en codes EAN à 13 chiffres. Si une telle norme est adoptée, elle devra utiliser un groupe EAN différent de 977 pour éviter les collisions avec les codes EAN-13 déjà utilisés, ou réguler l’utilisation des deux derniers chiffres précédant le chiffre clé de contrôle EAN.

Le dernier chiffre d'un code EAN 13 est toujours une clé de contrôle (check digit). Le principe est le même qu'une formule de Luhn, excepté que les rangs pairs sont multipliés par trois et non par deux. Elle est calculée à partir des douze premiers chiffres[3]selon l'algorithme suivant :

• Calculer trois fois la somme des chiffres de rang pair (en partant du second) de gauche à droite ;
• calculer la somme des chiffres de rang impair (en partant du premier) de gauche à droite ;
• totaliser ces deux sommes partielles ;
• prendre le chiffre des unités de ce total, R ;
• clé = reste de la division par 10 de 10- R.

Par exemple, le calcul de la clé de contrôle du code EAN 13 dont les 12 premiers chiffres sont 471-9-5120-0288-x (où x est la clé de contrôle que l’on cherche), résulte du tableau suivant[4] :

1. Pour les poids on alterne les valeurs 1 et 3.
2. On calcule ensuite la somme des résultats.
3. On calcule le reste de la division par 10 de la somme précédemment calculée :
   • si le reste de la division est égal à 0, alors la clé est 0,
   • sinon, on ôte à 10 le reste ainsi trouvé : Clé = 10 - Reste.

La somme vaut dans cet exemple 4+21+1+27+5+3+2+0+0+6+8+24 = 101, le reste de la division par 10 est 1 ; la clé vaut donc 10-1 = 9. Le code EAN 13 complet est 471-9-5120-0288-9

Sous un tableur si la cellule A1 contient les 12 chiffres du code EAN-13 ou l'intégralité des 13 chiffres du code EAN-13, il est possible de calculer la clé de contrôle à l'aide de la formule suivante :

=MOD(10-MOD((STXT(A1;1;1)*1+STXT(A1;2;1)*3+STXT(A1;3;1)*1+STXT(A1;4;1)*3+STXT(A1;5;1)*1+STXT(A1;6;1)*3+STXT(A1;7;1)*1+STXT(A1;8;1)*3+STXT(A1;9;1)*1+STXT(A1;10;1)*3+STXT(A1;11;1)*1+STXT(A1;12;1)*3);10);10)

ou par la formule factorisée suivante :

=MOD(10-MOD(SOMMEPROD((1+EST.PAIR(LIGNE($1:$12))*2)*STXT(A1;LIGNE($1:$12);1));10);10)

Sur Excel en particulier, elle peut s'obtenir au moyen d'une fonction personnalisée :

Function KeyEAN13(EAN12$)
If Not EAN12 Like "############" Then KeyEAN13 = CVErr(2015): Exit Function
For i = 1 To Len(EAN12)
    s = s + Mid(EAN12, i, 1) * (1 + (1 - i Mod 2) * 2)
Next i
If s Mod 10 = 0 Then
    KeyEAN13 = 0
Else
    KeyEAN13 = 10 - s Mod 10
End If
End Function

à utiliser ainsi sur une cellule quelconque :

=KeyEAN13(A1)