Transformer Code EAN 13 chiffre en code barre

  • Initiateur de la discussion Initiateur de la discussion thomthom73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

thomthom73

XLDnaute Nouveau
Bonjour à tous,

Je souhaite transformer des codes à 13 chiffres en code barre (Code EAN 13). Malgré mes différentes recherches sur ce forum et d'autres notamment sur Grand Zebu, je n'ai pas réussi à générer ce code barre.

J'ai bien télécharger la police nécessaire mais je ne parviens pas à faire fonctionner la macro (vu sur Grand Zebu).

Je travaille sur Excel 2010.

Je joins un exemple de fichier.

Merci par avance pour votre aide.

A +
 

Pièces jointes

Dernière édition:
Re : Transformer Code EAN 13 chiffre en code barre

eddy51 tu parles de quoi ? Police ou Macro ?

Si c'est la police : je la selectionne dans le menu à thèmes des polices mais afin que le code barre soit bon, il faut d'abord générer le code VBA (ce que je n'arrive pas à faire).

Si c'est la Macro : désolé je ne peux te répondre (je ne m'y connais pas assez).
 
Re : Transformer Code EAN 13 chiffre en code barre

sa peut marcher si tu met ton code du genre '3 65 623 3 2589 1' dans ta case D2 et que tu utilise une macros comme celle de venitien si tu veut en faire 3 tu etends ta plage Range("D2😀4")
 
Re : Transformer Code EAN 13 chiffre en code barre

Re,

Problème tes codes chiffres contiennent 13 caractères !
Or il n'en faut que 12 pour que la fonction marche la clé de contrôle est calculée 😉

A+
 
Re : Transformer Code EAN 13 chiffre en code barre

@brunoM45: tu dis ça par rapport au VBA que thomthom à donné? j'ai vu l'erreur aussi mais un EAN13 ne contient-il pas obligatoirement 13 chiffres? du coup est-ce que c'est pas une erreur dans le code ou il faudrait mettre 13 à la place de 12?
 
Re : Transformer Code EAN 13 chiffre en code barre

Après je trouve qu'en changeant simplement la police, les codes barres obtenus sont franchement tout pourris... Regarde la pièce jointe 227495

Je pence surtout qu'il doit y avoir un probleme que les EAN13 sont pas associé au code barre ou alors j'ai aps verifié mais manque de chance tous ce que tu a généré a cette tete la , essaie un autre
 
Re : Transformer Code EAN 13 chiffre en code barre

D'où la nécessité de faire plus qu'un changement de police, comme ici:

Code:
'Calcul de la clé de contrôle
'Calculation of the checksum
For i% = 12 To 1 Step -2
checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
Next
checksum% = checksum% * 3
For i% = 11 To 1 Step -2
checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
Next
chaine$ = chaine$ & (10 - checksum% Mod 10) Mod 10
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
2 K
Réponses
1
Affichages
694
Réponses
3
Affichages
218
Retour