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

kiki29

XLDnaute Barbatruc

• 20 Novembre 2024

• #2

Salut, voir ici chez Grandzebu

 

Dernière édition: 20 Novembre 2024

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 20 Novembre 2024

• #3

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 20 Novembre 2024

• #4

Re, il y a aussi ce post

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Novembre 2024

• #5

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 )

 

Pièces jointes

• Test code barre 1 € forum .xlsm

  19.4 KB · Affichages: 10

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 22 Novembre 2024

• #6

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

 

Pièces jointes

• Test code barre 1 € forum 22 Nov 13h .xlsm

  39.6 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2024

• #7

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 :

VB:

=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.

 

Pièces jointes

• Test code barre 1 € forum 22 Nov 13h V2 .xlsm

  47 KB · Affichages: 8

Dernière édition: 22 Novembre 2024

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 23 Novembre 2024

• #8

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

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 23 Novembre 2024

• #9

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

 

Vote positif 0 Vote négatif