Microsoft 365 Calcul de la clé de contrôle EAN 13

[davidp]

Bonjour à tous,

Tout d'abord, je vous remercie pour celui ou celle qui m'aidera.
Je suis à la recherche d'un fichier Excel qui permet de calculer la clé de contrôle et si possible ensuite générer le code barre EAN13.
Je vous remercie pour votre aide.

Bonne journée à tous

DAVIDP

 

[kiki29]

Salut, voir ici chez Grandzebu

 

[davidp]

Bonjour Kiki29,

Je vous remercie pour votre aide, je vais essayer de décrypter vos données précieuses pour l'adapter à mon fichier excel.
Un grand merci pour toutes ces données.
Bonne soirée à tous.
Davidp

 

[kiki29]

Re, il y a aussi ce post

 

[sylvanu]

Bonjour David, Kiki,
Un essai en PJ en s'inspirant de ce lien, ainsi que de la macro EAN de Hervé ( ici )
J'ai vérifié sur quelques produits, et ça à l'air de marcher.
NB: Il faut évidemment installer la police EAN13 si ce n'est déjà fait. ( Polices EAN )

 

[davidp]

Bonjour Sylvanu,

Un grand merci pour votre fichier,

C'est exactement ce dont j'avais besoin, par contre, j'ai fait une erreur dans la cellule concatené M3 , j'ai oublié la cellule L3 afin d'obtenir la racine du code EAN avec 12 chiffres au lieu de 11( j'ai réalisé la modif dans la cellule M3.
Le calcul de la clé est correcte maintenant par contre le code barre n'apparait plus ?.

Pouvez-vous modifier la macro
Désolé, je ne suis pas assez compétant .
Un grand merci pour votre aide précieuse

DavidP

 

[sylvanu]

Re,
Il suffit de supprimer le N3 dans la formule et laisser =ean(M3) car la macro traite les deux cas.
Vous pouvez même supprimer la colonne N car inutile ( voir feuille 2 )
Voire même supprimer la colonne M ( voir feuille 3 ) et en entrant comme formule :

=ean(A3&B3&C3&D3&E3&F3&G3&H3&I3&J3&K3&L3)

Ou encore comme en feuille 4, ne mettre que le code directement.
Vous avez le choix entre toutes ces solutions.

 

[davidp]

Bonjour Sylvanu,
Un grand pour votre retour.
Actuellement, je suis sur mon ordinateur de boulot qui ne permet pas d'ouvrir le fichier.
Je regarderai demain sur un autre ordinateur.

Merci pour votre aide précieuse

DAVIDP

 

[davidp]

Bonjour Sylvanu,

J'ai ouvert le fichier via un autre PC, c'est parfait, cela fonctionne.

Un grand merci pour votre temps passé et patience.
Bon week-end

DAVIDP