Création de code barre à partir de gencods

[EK22]

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.

 

[Staple1600]

Bonjour le fil, le forum

@EK22
Avant de créer une seconde question, il serait peut-être pas inutile de faire un suivi de la première, non ? 😉
La première est ici
https://www.excel-downloads.com/threads/fonction-si.20023421/

 

[Modeste geedee]

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

 

[gosselien]

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]

Bonsoir,

J'ai bien enregistré la police code ean13 dans Windows fonts mais je ne la retrouve pas dans ma liste déroulante...

Avez vous une solution?

Merci d'avance,

 

[EK22]

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

 

[EK22]

Bonjour Modeste Geedee,

Après avoir fermé Excel, je retrouve effectivement la police code ean13.

Je te remercie particulièrement pour ton aide et ta réactivité.

Belle journée et bon courage,

Au plaisir,

 

[MDS-INFO]

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:

 

[Modeste geedee]

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"