Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Creer code barre (gencod ean13)

0/5 (41 avis)

Vue 173 629 fois - Téléchargée 10 776 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

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.