Microsoft 365 Génération automatique code Barre EAN13

[FLAM04]

bonjour
Je chercher à générer, en automatique, des Code Barre EAN13. Nous créons chaque mois de multiples articles et devons systématiquement créé les codes barres pour que ceux-ci soient lisibles par les douchettes. Malheureusement La police EAN 13 disponible sur Excel n'est pas lisible. nous sommes donc dans l'obligation des les créer manuellement sur site et de coller chaque code-barre dans notre fichier.

Merci pour votre aide et solution.

 

[kiki29]

Salut, voir ici

 

[Phébus]

Bonjour Flam04
voici une proposition d'après le code de GrandZebu qui permet de générer un code barre.

 

[Sequoyah]

Bonjour le fil et le Forum,
une petite correction au code proposée par @Phébus

Sub Generer_Code_Barre2()

'https://excel-downloads.com/threads/generation-automatique-code-barre-ean13.20084276/post-20657419

Dim DerLig As Long
Dim CodBar As String

DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To DerLig

' CodBar = EAN13$(Left(Range("C" & DerLig), 12))

 CodBar = EAN13$(Left(Range("C" & i), 12))
 Range("D" & i) = CodBar
 
Next i

End Sub

Cordialement

 

[Phébus]

Bonjour le fil et le Forum,
une petite correction au code proposée par @Phébus

Sub Generer_Code_Barre2()

'https://excel-downloads.com/threads/generation-automatique-code-barre-ean13.20084276/post-20657419

Dim DerLig As Long
Dim CodBar As String

DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To DerLig

' CodBar = EAN13$(Left(Range("C" & DerLig), 12))

 CodBar = EAN13$(Left(Range("C" & i), 12))
 Range("D" & i) = CodBar
 
Next i

End Sub

Cordialement

Merci Sequoyah. c'est bien un "i" et non la variable "DerLig"

 

[FLAM04]

Bonjour Flam04
voici une proposition d'après le code de GrandZebu qui permet de générer un code barre.

Bonjour Flam04
voici une proposition d'après le code de GrandZebu qui permet de générer un code barre.

bonjour
quand je lance la génération du code barre, cela ne fonctionne pas. voici ce qui s'affiche en colonne D:

comment puis-je résoudre le problème?

Merci beaucoup pour votre aide en tout cas!

 

[jurassic pork]

Hello,
tu n'as certainement pas installé la police ean13.tff. Va voir ici pour la récupérer et l'installer.

 

[Phébus]

bonjour
quand je lance la génération du code barre, cela ne fonctionne pas. voici ce qui s'affiche en colonne D:

Regarde la pièce jointe 1203014

comment puis-je résoudre le problème?

Merci beaucoup pour votre aide en tout cas!

il faut installer la police EAN13 sur ton ordi.
Bien à toi

 

[FLAM04]

Merci mille fois ça fonctionne!!