Création de code barre à partir de gencods

EK22 à dit:

Bonjour 0 toutes et tous,

A partir d'une liste de gencods classés dans une colonne, j'aimerais créer les codes barres correspondants.

Je crois qu'il faut utiliser VBA pour y arriver mais j'en suis bien incapable.

Merci d'avance pour votre aide.

Cliquez pour agrandir...

Modeste geedee à dit:

sans VBA !!!
calcul de la clé en B2 :
=MOD(10-MOD((STXT(A2;12;1)+STXT(A2;10;1)+STXT(A2;8;1)+STXT(A2;6;1)+STXT(A2;4;1)+STXT(A2;2;1))*3+STXT(A2;11;1)+STXT(A2;9;1)+STXT(A2;7;1)+STXT(A2;5;1)+STXT(A2;3;1)+STXT(A2;1;1);10);10)

élaboration du code en C2 :
=A2&B2

affichage du code Barre en D2 :
=STXT(C2;1;1)&CAR(STXT(C2;2;1)+65)&CAR(STXT(C2;3;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;1;2;3};0));75;65))&CAR(STXT(C2;4;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;4;7;8};0));75;65))&CAR(STXT(C2;5;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;1;4;5;9};0));75;65))&CAR(STXT(C2;6;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;2;5;6;7};0));75;65))&CAR(STXT(C2;7;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{1;4;6;8;9};0));75;65))&"*"&CAR(STXT(C2;8;1)+97)&CAR(STXT(C2;9;1)+97)&CAR(STXT(C2;10;1)+97)&CAR(STXT(C2;11;1)+97)&CAR(STXT(C2;12;1)+97)&CAR(STXT(C2;13;1)+97)&"+"

utiliser une police CODE EAN13.ttf
taille 36
Regarde la pièce jointe 1008872

Cliquez pour agrandir...

Modeste geedee à dit:

sans VBA !!!
calcul de la clé en B2 :
=MOD(10-MOD((STXT(A2;12;1)+STXT(A2;10;1)+STXT(A2;8;1)+STXT(A2;6;1)+STXT(A2;4;1)+STXT(A2;2;1))*3+STXT(A2;11;1)+STXT(A2;9;1)+STXT(A2;7;1)+STXT(A2;5;1)+STXT(A2;3;1)+STXT(A2;1;1);10);10)

élaboration du code en C2 :
=A2&B2

affichage du code Barre en D2 :
=STXT(C2;1;1)&CAR(STXT(C2;2;1)+65)&CAR(STXT(C2;3;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;1;2;3};0));75;65))&CAR(STXT(C2;4;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;4;7;8};0));75;65))&CAR(STXT(C2;5;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;1;4;5;9};0));75;65))&CAR(STXT(C2;6;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{0;2;5;6;7};0));75;65))&CAR(STXT(C2;7;1)+SI(ESTNA(EQUIV(CNUM(STXT(C2;1;1));{1;4;6;8;9};0));75;65))&"*"&CAR(STXT(C2;8;1)+97)&CAR(STXT(C2;9;1)+97)&CAR(STXT(C2;10;1)+97)&CAR(STXT(C2;11;1)+97)&CAR(STXT(C2;12;1)+97)&CAR(STXT(C2;13;1)+97)&"+"

utiliser une police CODE EAN13.ttf
taille 36
Regarde la pièce jointe 1008872

Cliquez pour agrandir...

MDS-INFO à dit:

Bonsoir, je ressors cet excellent post, mais je constate que si je prend un code EAN d'un article basic (des boules quies par exemple), le code qui s'affiche semble difféent de celui de la boite. J'ai prix une police EAN 13 appelée code39, ce n'est pas la bonne ? comme il y en a des tas, cela a une importance ou non ? ou trouve t on celle qui marche avec cette formule ?

Cliquez pour agrandir...