Code barre EAN13 dans Excel

Mathias

Membre
Hello, un spécialiste Excel sur le forum ?
J'essaie de créer des codes barres au format EAN13 via Excel mais les codes créés sont bizarres et illisibles par un lecteur code barre.
pourtant dans A1 je mets ma série de nombre et dans B1 je mets la fomule =A1 et je lui applique la police EAN13 mais ça sort ça :unsure:

Capture d’écran 2021-11-24 221103.png

Une idée pour me dépatouiller ?
 

Jean-Paul

Membre
Avec EAN13 tu peux pas passer directement des chiffres au code barre, il y a une étape supplémentaire : la clé de contrôle
Par exemple 5124678945366 donne 5BMOGHS*jefdgg+ et cette clé tu peux la convertir en code barre EAN13.

Comment ? Avec VBA bien sûr ! ;)
 
Visual Basic for Applications, c'est un langage de programmation de Microsoft qui sert principalement à "écrire" des macros Excel.
Si tu ne sais pas ce que c'est, trouve un fichier Excel tout fait.

Sinon faut activer l'onglet développeur dans les options Excel et tu crées ta propre macro dans en VBA, avec ce code par exemple :
Code:
Public Function Clé(EAN13 As String) As Byte
    Dim Facteur, i As Integer, Total As Integer
    EAN13 = Left(Trim(EAN13), 12)
    Facteur = 3
    For i = Len(EAN13) To 1 Step -1
        Total = Total + Mid(EAN13, i, 1) * Facteur
        Facteur = 4 - Facteur
    Next i
    Clé = CStr(10 - IIf(Total Mod 10 <> 0, Total Mod 10, 10))
End Function
 
Haut