CREER CODE BARRE (GENCOD EAN13)

Commentaire de dragon le 16/08/2003 13:59:14

la façon la plus simple de faire ça, c'est habituellement les programme pour faire des code bar ont de police qui en fond. c'est tout simplement des polices de caractère.

Commentaire de menzo le 17/08/2003 11:34:14

heu pardon mias comment ca fonctionne ce programme... et si on sais vrmt faire qq'ch avec ?? merci

Commentaire de fuga le 17/08/2003 14:47:26

ok mais on doit mettre quoi et ou?? par exemple ?? et c comment le language ean13?? c avec la nouvelle ecriture ?? ok mais alors on fais quoi ?  enfin disez quoi qu'on doit faire svp ..

                                                                            Fuga

Commentaire de david96 le 14/01/2004 17:41:24

Super !
Heu... par contre comment je fait pour créer mon code barre, pour vendre mes CD audio que j'ai fait en studio ?

Commentaire de david96 le 15/01/2004 00:18:17

Et bha j'ai pas trouvé (Google ne m'aime pas) :-(

Commentaire de david96 le 15/01/2004 22:31:04

Merci beaucoup :-D

Commentaire de bigsam le 26/02/2004 08:58:21

Merci 1000 fois  . Jutilise les code barre tous les jours profesionnellement, les taper est un peux fastidieux , aujourdh'ui grace a ton programme et a la lecture optique  c'est devenu du billard . bravo  Champion !!!!

Commentaire de skaade le 18/12/2004 04:17:00

Bjr,

quelqu'un pourrait il me dire comment insérer ce programme EAN13Encoder dans Excel pour pouvoir générer des codes au kilomètre ? est ce possible d'ailleurs ???

Merci d'avance pour toute réponse !!

C'est urgent ;o)

Skaade

Commentaire de cuq le 14/03/2005 14:31:43

Bonjour J'ai une petite question sur les codes barres :

Pour relire le code barre la douchette suffit-elle ou faut il rajouter un soft spécial ? comment l'intégrée dans une application VB ?

Sinon le site est super pour l'explication des différents codes ?

Commentaire de haabal le 22/01/2006 23:03:41

Bonjour,
je découvre les macros sur excel. donc soyez indulgent avec un débutant SVP !
je cherche à imprimer des étiquettes produits avec ean13.
J'ai installé la police dans windows/font
J'ai placé la macro dans macro complémentaire
J'ai ouvert l'exemple et vu la méthode d'appel de la fonction transbar.
Mais j'ai un message d'erreur : 1) excel me demande si je veux mettre à jour les liaisons avec un autre classeur. je dis oui. il me répond Excel n'arrive pas à trouver transbar sur ean13.xla et que cela peut provenir de deux choses : soit que le nom n'est pas défini, soit que le nom ne se rapporte pas à une zone rectangulaire de cellule.
Comment puis je définir transbar ? Ai-je zappé une étape ?
Merci de votre aide,

Commentaire de argentan61 le 29/01/2006 21:11:36

Meme probleme que HAABAL

Comment Faire?

Merci

Commentaire de barchil le 01/04/2006 20:33:42

en premier MERCI pour cette merveille que je trouve tres utile
pour excel le truc est de demarrer en premier la macro et ensuite ouvrir le classeur

ma question est que j'ai essayé de travailler avec une autre fontes de ean13 mais ça donne pas la même chose
ma deuxieme question est ce que la fonte qui accounpagne ton zip est libre de droit
Merci infiniment

Commentaire de ypotier le 07/04/2006 16:47:21

Bravo pour cette macro, très simple d'emploi pour moi qui ne connait rien au développement. Elle permet aussi le calcul de la clef d'un nombre de 12 caractères en mettant simplement la valeur "x" en 13ème position.

Commentaire de celineman le 22/07/2006 14:03:39

Salut ton programme est génial cela fait un moment que je cherchais une solution, grâce à toi je l'ai.
Par contre est t'il possible de faire la même chose avec des ean de taille inférieur ex: des ean 8

Commentaire de dadou19 le 25/09/2006 09:07:01

Salut,
Ton code est vraiment excellent,

je l'utilise pour m'aider à baliser mon inventaire

Par contre j'ai un problème, il semblerait qu'il ne génère pas du tout les codes barres commençant par 0 ce qui n'est pas courant, mais qui existent quand même

Si tu as une solution, je suis preneur...
Slts,

Dadou19

Commentaire de dadou19 le 04/10/2006 16:32:42

Hello

c'est bon, il vaut mieux utiliser le code de grand Zebu
car il passe par le format texte = 'XXXXXXXXXXXXX
donc on voit les 0

mais bon dans excel je recupère les gencod tels quels
il me fallait les transformer pour pouvoir toujours les afficher en code barre donc par exemple le gencod 0000000000154

dans excel = 154

formule : si gencod dans A1 :

=ean13(GAUCHE(DROITE("'00000000000"&A1;13);12))
en mettant bien la police de grand ZEBU sur la cellule résultat

on a toujours le code barre même pour nombre < 13 chiffres
(on force à mettre les 0 en concaténant la chaine et en tronquant le tout pour finir pile à 13 chiffres ;o)

Voilou

merci donc à Grand ZEBU et toi ;o)

Bye

Commentaire de fanafancastries le 13/11/2006 18:22:50

Je me suis servie de ta macro un fois déjà et ça a super bien marché, mais aujourd'hui, quand j'ouvre le fichier ou il y a les codes barres pour en crere de nouveaux (nouveaux produits)je n'arrive plus à la faire marcher il semble qu'il y ait un problème de nom....au secourd, je craque, ça fait 2 heures que je suis dessus !

Commentaire de anahadak le 03/04/2008 14:08:29

merci neodante pour le code c vraiment trés utile et pour le completer je vous propose deux choses:
1) ajouter un controle de saisie au niveau du textbox txtEncodeEAN13 pour que l'utilisateur ne puisse pas entrer des caracteres.
2)une fonction qui permet d'envoyer le code barre generer sous vb dans te textbox txtEAN13 à un fichier exel et faire une aperçu avant impression.

bon j'ai travaillé sur votre code et j'ai pu ajouter ces deux contraites voila la source:

Private Sub txtEncodeEAN13_KeyPress(KeyAscii As Integer)
If Not Controler_KeyPress_Ok(KeyAscii, txtEncodeEAN13, True, True) Then KeyAscii = 0
                                              '    |     |
                                              '    |      > indique que l'on veut saisir que des entiers
                                              '     > indique que l'on veut saisir que des nombres positifs
End Sub

ensuite ajouter la fonction Controler_KeyPress_Ok dans un module:

Public Function Controler_KeyPress_Ok(ByVal KeyAscii As Integer, ByVal Txtbox As TextBox, ByVal Est_Positif As Boolean, ByVal Est_Entier As Boolean) As Boolean
   Select Case KeyAscii
      ' 48 to 57 => 0 à 9 ;  8 => Backspace ;  13 => Enter ; 3 => Ctrl+C (copier) ; 22 => Ctrl+V (coller) ; 24 => Ctrl+X (couper)
      Case 48 To 57, 8, 13, 3, 22, 24:
         Controler_KeyPress_Ok = True
      
      ' 44 => , (virgule) ;  46  => . (point)
      Case 44, 46:
         If Est_Entier Then    ' si c'est un entier...
            Controler_KeyPress_Ok = False  ' ... on annule la virgule ou le point
         Else                  ' sinon...
            Controler_KeyPress_Ok = InStr(Txtbox.Text, ".") = 0 And InStr(Txtbox.Text, ",") = 0   ' ... on annule la virgule ou le point seulement si le caractere est deja present dans le texte
         End If
      
      ' 45 => - (signe moins)
      Case 45:
         If Est_Positif Then  ' si c'est un positif...
            Controler_KeyPress_Ok = False                 ' ... on annule le signe moins
         Else                 ' sinon...
            Controler_KeyPress_Ok = InStr(Txtbox.Text, "-") = 0 And Txtbox.SelStart = 0 ' ... on annule le signe moins seulement si il est deja present dans le texte et s'il n'est pas le premier caractere du texte
         End If
      
      ' caracteres non valides
      Case Else:
         Controler_KeyPress_Ok = False
   End Select

  
   ' Si caractere valide et si on permet des nombres negatifs ...
   If Controler_KeyPress_Ok And Not Est_Positif Then
      '... alors on annule le caractere s'il est placé devant un signe moins
      If Txtbox.SelStart = 0 And InStr(Txtbox.Text, "-") Then Controler_KeyPress_Ok = False
   End If
End Function

et pour le 2éme point voila le code qui permet de faire appel à une feuil d'un classeur exel et faire une aperçcu anant impression du code barre.

1: ajouter un boutton de commande nomé aperçu:
2: coller le code

Private Sub aperçu_Click()
Dim oExcel As Excel.Application
    Dim oWk As Workbook
    Dim sh
    Set oExcel = CreateObject("Excel.Application")
    oExcel.Visible = True 'Masque l'application excel (valeur par défaut)
    On Error Resume Next 'Pour éviter les erreur si classeur n'existe pas
    Set oWk = oExcel.Workbooks.Open(App.Path & "\Classeur1.xls")
    oWk.Sheets("Feuil1").Range("A2") = Transbar(txtEncodeEAN13)
    For Each sh In ActiveWindow.SelectedSheets
    sh.PrintPreview
    Next
    On Error GoTo 0
   If oWk Is Nothing Then
      MsgBox "Erreur sur ouverture classeur", vbCritical
      Exit Sub
    End If
end sub

3: ajouter un classeur nomé Classeur1.xls dans le dossier EAN13
4: changer la police de la colnne A  2emme ligne il faut mettre la police EanT30Rfz
et n'oublier pas d'ajouter la réference microsof exel objet library dans votre projet.

bonne chance.

Commentaire de jpfbio le 04/07/2008 09:10:21

Même pb que safespam. J'use mes neurones là... A l'aide !