Création de code barre à partir de gencods

EK22

XLDnaute Nouveau
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.
 

Modeste geedee

XLDnaute Barbatruc
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.
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
upload_2018-3-24_10-48-42.png
 

gosselien

XLDnaute Barbatruc
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
Waouw...
et ça peut se faire pour autre que EAN13 ?

P.
 

EK22

XLDnaute Nouveau
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
 

MDS-INFO

XLDnaute Nouveau
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 ?
Je vous remercie bcp:
Screenshot_1.png
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
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 ?
utiliser une police CODE EAN13.ttf
taille 36

faire une recherche également avec le terme "groszebu"
 

Discussions similaires