Codes barres Ean 13 sous Excel [Résolu]

Bonjour,

Je cherche à créer des codes barres Ean13 sous excel (Office 2003, Windows XP) depuis un classeur où j'ai une liste de mes codes actuels, avec prix et libellés. Ils sont à 6 chiffres que je complète par 6 zéros à gauche avant de les codifier en ean13
On m'a gentiment passé une macro (Transbar) qui effectue bien la conversion. Mais je dois avoir un problème de gencode car ma douchette ne me lit pas tous les codes ainsi obtenus Pour quelques-uns, oui, mais pas pour les autres.
Qui aurait déjà résolu un tel problème sous excel ? Merci d'avance de vos (bons) tuyaux.


Je peux sans problème envoyer un petit fichier d'essai, d'une dizaine de codes.

Cordialement
Roland

bonjour à toi, regarde ICI et LA dis moi si cela te convient

Bonjour,
Un merci grand pour ta réponse;
Je regarde et j'essaie un peut tout ça, jusqu'au test final de la douchette. Puis je te tiens au courant. Je croise les doigts en espérant que ma douchette sera toute sympa et gentille, sans caprice ni bouderie.....

A très bientôt, donc
Roland

ok j' attends des nouvelles

Bonjour,
Comme promis, je viens te dire que ...... tout va bien du côté des codes barres. Génial ! C'est magnifique. Finalement, j'ai opté pour le code EAN 8 car les zéros supplémentaires du code EAN13 ne m'étaient d'aucun intérêt. Un grand merci, donc, pour ce tuyau coup de main !

Si je peux me permettre, l'étape suivant m'oppose une nouvelle difficulté que je n'ai encore jamais rencontrée: comment "éditer" mon étiquette, sous VBA Excel ?

Une étiquette représente une cellule de ma feuille "page" ( 13 lignes d'étiquettes par page, 5 étiquettes par ligne, donc 5 colonnes Excel)

J'ai écrit le programme VBA qui me place tout ça dans les cellules étiquettes, à partir d'une feuille où se trouvent les codes et quantités à "mettre en étiquettes".
Mais je ne sais pas du tout comment spécifier les caractéristiques d'impression de mes caractères sur une étiquette. Celle-ci contient en effet:
*** le code EAN8 du produit (police Code EAN13; taille 26)
*** le code numérique du produit (Times New Roman, taille 12)
*** le prix du produit (idem)
*** le libellé du produit (idem)

Il me faut en plus "coder" sous VBA, les retours à la ligne, car tu devines que les 4 informations d'une étiquette ne tiennent pas sur une seule ligne
Je n'ai jamais fait ça et je ne vois pas du tout le codage VBA qui le permet

Si par chance tu peux encore m'aider sur ce sujet, je t'en remercie par avance
Amicalement,
Roland

PS J'ai le dossier excel ( tout petit) à ta disposition si cela peut t'aider

bonjour Roland, ceci est bien ta difficulté et ta question ?
sinon précise ta question
merci

Bonjour et (re) merci...
Mon message ne t'est-il pas parvenu en totalité ???
J'y disais en effet :

"Mais je ne sais pas du tout comment spécifier les caractéristiques d'impression de mes caractères sur une étiquette. Celle-ci contient en effet:
*** le code EAN8 du produit (police Code EAN13; taille 26)
*** le code numérique du produit (Times New Roman, taille 12)
*** le prix du produit (idem)
*** le libellé du produit (idem)

Il me faut en plus "coder" sous VBA, les retours à la ligne, car tu devines que les 4 informations d'une étiquette ne tiennent pas sur une seule ligne
Je n'ai jamais fait ça et je ne vois pas du tout le codage VBA qui le permet"

Voilà, amigo Ce sont ces spécifications d'impression ( 2 polices différentes sur une même étiquette, 2 tailles différentes de caractères, et les sauts de ligne que je ne vois pas du tout comment déclarer en VBA
Merci encore,
Roland

re:
si ce que j'ai trouver peux t'aider regarde CECI et tiens moi au courant si cela te convient, sinon je continuerais mes recherche

Non, ça ne correspond pas à mon besoin

Mon problème est la mise en "forme", sous VBA, du texte que je balance dans chaque étiquette, en fait dans chaque cellule de ma feuille excel.
Mon "remplissage" d'étiquette se fait ainsi :

Range(Col & lign_etiq).Value = Worksheets("Etiq_cod-bar").Range("G" & lign_depart) _
& Worksheets("Etiq_cod-bar").Range("A" & lign_depart) _
& Worksheets("Etiq_cod-bar").Range("D" & lign_depart) _
& Worksheets("Etiq_cod-bar").Range("F" & lign_depart)
-----------------------------------
Sauf que je voudrais:
** que la 1ère ligne de ma cellule (.Range("G" & lign_depart)) s'écrive avec la police EAN 8 et à la taille 26
** que les autres lignes le soient en Times New Roman et taille 12
** que j'aie un retour à la ligne, dans la même cellule, après le 1er Range et après le 3e Range

Mes 4 "Range" devraient ainsi composer 3 lignes sur la même étiquette, donc dans la même cellule Excel
*** Code Barre
*** Libellé
*** Code en clair et prix,

Mais je ne connais pas du tout les codes VBA pour faire ça
Merci
Roland

bonjour j'ai trouver un autre tuto assez intéressant pour les codes barres sous exel, avec des cours de la mise page, clic ICI cela pourras t'aider à résoudre ton problème je pense
tiens moi au courant de suite
merci

regarde CECI tiens moi au courant de la suite

Non, ça ne m'a pas dit comment, dans une chaîne de caractères sous VBA, déclarer les spécif. d'édition ( polices et tailles différentes à l'intérieur de la chaîne)
Mais finalement, je m'en suis tiré autrement; J'ai eu l'idée de construire chacune de mes étiquettse non pas sur une ligne Excel, mais sur 2 lignes du tableau Excel
Ainsi je peux définir police et taille de façon différente sur chaque ligne ainsi superposée.

Encore un géant merci pour toute ta gentillesse et ton efficacité
Roland

bonjour et pardon si je n'ai pas été d'un grand secours, mais je ne connaissais pas du tout la manip et j'ai rechercher ce qui ce rapprochait le plus pour résoudre ton problème.
mais je suis heureux que ton problème est trouver une solution, si tu peux le marquer comme résolu merci et bonne journée

Encore un grand merci à toi Tu m'as aidé à trouver la bonne piste Surtout, surtout, tu m'as trouvé la bonne soluce code barres, ce qui était le neud de mon problème
Bravo pour toi, bravo pour tout et bravo pour le site
Amicalement
Roland

bonjour Lecroi, je suis sur le forum pour aider, donc pas de problème, si tu as d'autres problèmes ce qui n'est pas souhaiter n'hésite pas à revenir sur le forum nous serons là pour t'aider à régler le problème
bonne journée