Changement automatique d'une série de 13 chiffres en EAN13

Barfly034

XLDnaute Nouveau
Bonjour,

Pour ceux qui m'auront reconnu, j'avais un projet d'outil pour mon entreprise, il y a quelques semaines...Je cherche désormais à apporter une nouvelle fonctionnalité à cet outil en changeant automatiquement une série de 13 chiffres présents en colonne B en code barre type EAN13...

J'ai pu me procurer un logiciel qui transforme cette série en image, que j'ai ensuite intégrer à mon classeur, mais c'est très laborieux...

J'ai déjà visité le site de grandzébu, mais les explications que j'y ai trouvé ne m'ont pas permis d'obtenir un GENCOD...je sais, je suis pas un pro!

Je ne sais pas si les explications ont été claires alors n'hésitez pas à me demander plus de précisions s'il le faut

Merci à tous
 

Modeste

XLDnaute Barbatruc
Re : Changement automatique d'une série de 13 chiffres en EAN13

Bonjour Barfly034,

Je ne connais pas grand chose sur le sujet, mais sur le site que tu ... cites, au bas de la page consacrée au "Code barre EAN13", figure un fichier Excel que tu peux télécharger, de même que (un peu plus haut, dans la même page) un fichier avec la police EAN13.ttf. De ce que j'ai compris, la combinaison des deux devrait donner le résultat que tu cherches :confused:

Tu as testé?
 

pierrejean

XLDnaute Barbatruc
Re : Changement automatique d'une série de 13 chiffres en EAN13

Bonjour Barfly034

Salut Modeste

Effectivement le granzebu a fort bien travaillé
Peut-etre n'as-tu pas bien compris
Vois ce fichier
Il te faut enregistrer la police ean13.ttf dans le repertoire C:\WINDOWS\Fonts
Par ailleurs la fonction travaille sur 12 caracteres (elle calcule le 13 eme) : Vois ligne 4

NB: le ean13.zip contient le ean13.ttf (format non accepté par XLD)
 

Pièces jointes

  • ean13.xls
    38.5 KB · Affichages: 205
  • ean13.xls
    38.5 KB · Affichages: 200
  • ean13.xls
    38.5 KB · Affichages: 198
  • ean13.zip
    3.1 KB · Affichages: 126
  • ean13.zip
    3.1 KB · Affichages: 126
  • ean13.zip
    3.1 KB · Affichages: 132

Barfly034

XLDnaute Nouveau
Re : Changement automatique d'une série de 13 chiffres en EAN13

J'ai bien enregistré le police de caractère dans le dossier que tu m'as indiqué.

En revanche, après être rentré dans le menu développeur, j'ai pu voir que le code était dans un Module. Faut il que j'importe ce module sur mon classeur afin que la formule marche?Ou que je copie-colle cette formule sur chaque feuille de mon classeur...?

Merci
 

pierrejean

XLDnaute Barbatruc
Re : Changement automatique d'une série de 13 chiffres en EAN13

Re

Effectivement la fonction doit être copiée dans un module standard de ton fichier
Ensuite elle est utilisée pour avoir le texte qui sera interprété par la police pour donner le Code Barre
 

Barfly034

XLDnaute Nouveau
Re : Changement automatique d'une série de 13 chiffres en EAN13

je me suis appliqué à mettre ce module,par contre je n'obtiens qu'un vulgaire #REF! ... je dois avoir une erreur quelque part, pourtant ça a l'air d'un jeu d'enfant sur le papier...

Le format de cellule joue t-il? J'ai stocké mes 13 chiffres en nombre classique pourtant...et la formule exploite 12 caractère et calcule le 13ème si je comprends bien, un code se lit de droite a gauche, par conséquent je dois supprimer le premier chiffre de chacun de mes codes?
 

Modeste

XLDnaute Barbatruc
Re : Changement automatique d'une série de 13 chiffres en EAN13

Bonsoir Barfly034,
Salut pierrejean :),

Une piste peut-être: si tu as testé dans un classeur au format .xlsx, plutôt qu'un .xls ean13 correspond aussi à une adresse de cellule!
Dans l'Editeur VBA, change le nom de la fonction en CodeEan13, par exemple (trois remplacements à effectuer: la déclaration de la fonction, ainsi qu'en lignes 14 et 81).

De même, dans la feuille de calcul
Code:
=CodeEan13(STXT(A4;1;12))
... si tes 12 ou 13 chiffres sont en A4
 

Barfly034

XLDnaute Nouveau
Re : Changement automatique d'une série de 13 chiffres en EAN13

J'ai fait la manip de Modeste, et ca a marché, en changeant le nom de la fonction, ainsi que deux lignes, j'ai pu obtenir un code barre digne de ce nom et exploitable! Merci beaucoup!

Dernière question, nous travaillons sur des PC qui sont verrouillés, seuls les admin peuvent installer des polices de caractères etc... y a t-il la possibilité d'exploiter cet outil sur tous nos PC, sans pour autant installer la police de caractère EAN13? Peut elle être exploitée de manière "autonome" sur le classeur?
 

Modeste geedee

XLDnaute Barbatruc
Re : Changement automatique d'une série de 13 chiffres en EAN13

Bonsour®
Dernière question, nous travaillons sur des PC qui sont verrouillés, seuls les admin peuvent installer des polices de caractères etc... y a t-il la possibilité d'exploiter cet outil sur tous nos PC, sans pour autant installer la police de caractère EAN13? Peut elle être exploitée de manière "autonome" sur le classeur?

Concernant une exploitation commerciale et professionnelle, ton administration informatique (DSI) est juridiquement tenue de se conformer à la législation.

Toutes les polices pour codes barre EAN trouvées sur le net (Polices de
démonstration incomplètes) sont payantes (Parfois très chères) et de qualité
douteuse; la largeur des modules n'étant pas toujours constante dans la
définition de la police. J'ai donc décidé de dessiner entièrement une police EAN
13 et de la proposer en téléchargement.

L'utilisation des outils de Grandzébu est soumise à licence :

Copyright (C) 2003 (Grandzebu)
Ce programme ainsi que la police de caractères qui l'accompagne est libre, vous pouvez le redistribuer et/ou le modifier
selon les termes de la Licence Publique Générale GNU publiée par la Free Software Foundation (version 2 ou bien toute
autre version ultérieure choisie par vous).
Les fonctions d'encodage des codes barres sont régies par la Licence Générale Publique Amoindrie GNU (GNU LGPL)
Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE, ni explicite ni implicite,
y compris les garanties de commercialisation ou d'adaptation dans un but spécifique. Reportez-vous à la Licence
Publique Générale GNU pour plus de détails.
Veuillez charger une copie de la license à l'adresse : Licenses - GNU Project - Free Software Foundation (FSF)
Une traduction non officielle se trouve à l'adresse : http://gnu.mirror.fr/licenses/translations.fr.html

:rolleyes:
pour soulager ton esprit :
Aller plus loin ...
 

Barfly034

XLDnaute Nouveau
Re : Changement automatique d'une série de 13 chiffres en EAN13

Si je comprends bien, l'utilisation de la police de caractère crée par Grand Zébu est soumise à une adhésion?

Pour ce qui est de ton premier paragraphe, ma société utilise des code barre,je pense donc qu'elle "cotise" à l'organisme officielle pour se conformer à la législation.
 

Statistiques des forums

Discussions
312 329
Messages
2 087 334
Membres
103 520
dernier inscrit
Azise