Calcul de la clé EAN13

[Bichon 94]

Bonjour le forum,
Après avoir profiter du forum à foison je pose ici une solution de controle de la clé EAN13d'un produit au cas ou cela interesserait quelqu'un.

@+
Bichon

 

[Bichon 94]

Avec le fichier joint.

 

[Bichon 94]

Il passe pas
grrrrrrrr

 

[Bichon 94]

Un dernier essai et je lache l'affaire.
Mais si cela interesse quelqu'un dite le moi.

Bichon

 

[Manu13]

Bonjour Bichon94 et le forum

oui ça peux toujours interesser quelqu'un
peut être pas aujourd'hui, mais demain ......

pour le fichier joint sans espace sans caractère speciaux 50ko maxi en ZIP et non en RAR

Manu

 

[Bichon 94]

Merci Manu, j'avias pas vu l'espace.
Bon j'essai.
@+
Bichon [file name=CalculEAN13.zip size=5049]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CalculEAN13.zip[/file]

 

[camillekosei]

Re : Calcul de la clé EAN13

Bonjour,
est-ce que ce fichier zip est un fichier expliquant comment calculer la clé EAN13 sur Excel? je ne peux pas ouvrir le fichier zip...

 

[Monique]

Re : Calcul de la clé EAN13

Bonjour,

Le fichier non zippé

 

[JCGL]

Re : Calcul de la clé EAN13

Bonjour à tous,

Sans tableau intermédiaire (une formule de Monique ou Tibo... je crois)

=SI(A4="";"";ENT(A4/10)*10+MOD(10-MOD(SOMMEPROD((STXT(A4;LIGNE(INDIRECT("1:13"));1)*((MOD(LIGNE(INDIRECT("1:13"));2)=0))))*3+SOMMEPROD((STXT(A4;LIGNE(INDIRECT("1:11"));1)*((MOD(LIGNE(INDIRECT("1:11"));2)=1))));10);10))

A+ à tous

EAN 13 - Wikipédia

 

[Monique]

Re : Calcul de la clé EAN13

Re,

Elle n'est pas de moi, de Tibo probablement
La même en plus court :

=SI(A5="";"";ENT(A5/10)*10+MOD(10-SOMMEPROD((STXT(A5;{2;4;6;8;10;12};1)*3)+(STXT(A5;{1;3;5;7;9;11};1)));10))