Re: [fr-users] créer des codes barre EAN 13 à partir d'une référence à 13 chiffres

Le 20/09/2019 à 18:45, Franck Larrivé a écrit :
> Bonjour,
>
> cette page peux t'intéresser :
>
> https://grandzebu.net/informatique/codbar/ean13.htm
>
> Franck 

Oui, je viens de regarder. C'est très bien.

J'ai installé la macro pour openoffice. Elle fonctionne aussi pour 
libreoffice, enfin presque.

D'après ce que j'ai cru comprendre, cette macro analyse la référence 
fournisseur. Si elle trouve 12 chiffres, elle calcule la clé de contrôle 
(dernier chiffre à droite de la réf.) et affiche le code barre EAN13 
dans la colonne suivante.

Si la macro trouve 13 chiffres, elle analyse les 13 chiffres pour 
vérifier si la clé est bonne. Si la clé est bonne, elle affiche le code 
barre EAN13.

Si elle trouve que la clé n'est pas bonne, l'affichage reste vide.

Or quand j'enlève le dernier caractère de droite sur la ref (clé de 
contrôle), la macro calcule cette clé que je viens d'effacer et me 
propose la clé de contrôle avec la même valeur, et donc, du coup, elle 
m'affiche le code barre.

Et donc, pour moi, la clé de contrôle que j'enlève est bonne alors que 
la macro la considère comme mauvaise.


Voici le code de la macro :

REM  *****  BASIC  *****

Public Function ean13$(chaine$)
  'V 1.0
  'Paramètres : une chaine de 12 chiffres
  'Retour : * une chaine qui, affichée avec la police EAN13.TTF, donne 
le code barre
  '         * une chaine vide si paramètre fourni incorrect
  Dim i%, checksum%, first%, CodeBarre$, tableA As Boolean
  ean13$ = ""
  'Vérifier qu'il y a 12 caractères
  If Len(chaine$) = 12 Then
    'Et que ce sont bien des chiffres
    For i% = 1 To 12
      If Asc(Mid$(chaine$, i%, 1)) < 48 Or Asc(Mid$(chaine$, i%, 1)) > 
57 Then
        i% = 0
        Exit For
      End If
    Next
    If i% = 13 Then
      'Calcul de la clé de contrôle
      For i% = 2 To 12 Step 2
        checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
      Next
      checksum% = checksum% * 3
      For i% = 1 To 11 Step 2
        checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
      Next
      chaine$ = chaine$ & (10 - checksum% Mod 10) Mod 10
      'Le premier chiffre est pris tel quel, le deuxième vient de la 
table A
      CodeBarre$ = Left$(chaine$, 1) & Chr$(65 + Val(Mid$(chaine$, 2, 1)))
      first% = Val(Left$(chaine$, 1))
      For i% = 3 To 7
        tableA = False
         Select Case i%
         Case 3
           Select Case first%
           Case 0 To 3
             tableA = True
           End Select
         Case 4
           Select Case first%
           Case 0, 4, 7, 8
             tableA = True
           End Select
         Case 5
           Select Case first%
           Case 0, 1, 4, 5, 9
             tableA = True
           End Select
         Case 6
           Select Case first%
           Case 0, 2, 5, 6, 7
             tableA = True
           End Select
         Case 7
           Select Case first%
           Case 0, 3, 6, 8, 9
             tableA = True
           End Select
         End Select
       If tableA Then
         CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(chaine$, i%, 1)))
       Else
         CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(chaine$, i%, 1)))
       End If
     Next
      CodeBarre$ = CodeBarre$ & "*"   'Ajout séparateur central
      For i% = 8 To 13
        CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(chaine$, i%, 1)))
      Next
      CodeBarre$ = CodeBarre$ & "+"   'Ajout de la marque de fin
      ean13$ = CodeBarre$
    End If
  End If
End Function

Merci bien.



--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy