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