Creer code barre (gencod ean13)

Soyez le premier à donner votre avis sur cette source.

Vue 180 890 fois - Téléchargée 12 679 fois

Description

Ce petit outil permet de créer des codes barre de type EAN13 utilisé par les grandes surfaces pour identifier les produits. En plus une macro complémentaire Excel et un fichier exemple sont incluent afin de faire la mise en forme plus simplement. Aussi il vous faudra installer une police spécifique afin d'afficher correctement les codes barre. C'est un petit programme juste pour montrer comment est codé puis vérifié (à l'aide d'une clé de contrôle) un gencod EAN13, donc n'y voyez pas un grand programme super compliqué (hum...commentaires indulgents par conséquence !).
Ah oui cela n'est pas fait pour faire du hacking de supermarché !

Source / Exemple :


'Voici juste le code permettant de vérifier la clé d'un gencod EAN13 :

Public Function Clé(EAN13 As String) As Byte
    Dim Facteur, i As Integer, Total As Integer
    EAN13 = Left(Trim(EAN13), 12)
    Facteur = 3
    For i = Len(EAN13) To 1 Step -1
        Total = Total + Mid(EAN13, i, 1) * Facteur
        Facteur = 4 - Facteur
    Next i
    Clé = CStr(10 - IIf(Total Mod 10 <> 0, Total Mod 10, 10))
End Function

' TOUT le reste est dans le ZIP

Conclusion :


La connaissance appartient à tous !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 18 février 2010
Statut
Membre
Dernière intervention
19 février 2010

bonjour,

je désire garder uniquement le nombre du code barre afin de l'intégrer dans mon ERP
Comment faire?
Messages postés
1
Date d'inscription
mercredi 20 décembre 2006
Statut
Membre
Dernière intervention
28 août 2009

Salut à tous, le code est simple mais il donne de mauvaises informations! La clé qu'il donne est fausse! De plus la fonction ne fait pas la différence entre une série de 10,12,13 ou plus de chiffres et donne quand même une clé! Sans compter qu'il ne gère pas les premiers 0.
Allez ici ( http://www.leradin.com ) c'est payant mais efficace (formule dans Excel pour vos tableaux). Mais bravo quand même à vous qui avez bossé dessus.
Lionel
Messages postés
1
Date d'inscription
samedi 6 septembre 2008
Statut
Membre
Dernière intervention
7 septembre 2008

bonsoir

j'ai essayé, mais je n'y arrive pas il faut dire que je n'ai pas votre talent.
déjà quand j'extrait le zip j'ai un message qui me demande un mot de passe.
après j'ai bien essayé de copier la macro compléméntaire mais elle ne va pas dans excel, elle reste dans mes documents.
j'ai bien compris avec l'exemple ce que faisait la formule transbar, mais si je change le code numérique( que je laisse bien en formt texte) soit cela ne m'affiche plus rien , soit un bout de chiffre enfin rien qui correspondant à un code barre correct. je crois que j'ai besoin d' une aide plus détaillée et pas trop en langage informatique je suis plutot dans la partie chiffre;
merci pour l'aide que vous voudrez bien m'apporter.
Messages postés
2
Date d'inscription
vendredi 15 décembre 2000
Statut
Membre
Dernière intervention
4 juillet 2008

J'ai trouvé : tu actives ta macro, et dans la cellule où tu veux que ton code barre apparaisse, tu insères la fonction "transbar".
Tu inscris alors entre les parenthèses, l'adresse de la cellule origine où est inscrit le code en chiffres.
Ex : en h4 je tape : =Transbar(H3)
(h3 désignant la cellule "source")

Bon, je ne suis pas un spécialiste, j'explique peut-être mal, mais ça a fonctionné. Les codes barres sont lus sans difficulté après impression.
Messages postés
2
Date d'inscription
vendredi 15 décembre 2000
Statut
Membre
Dernière intervention
4 juillet 2008

Même pb que safespam. J'use mes neurones là... A l'aide !
Afficher les 41 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.