Microsoft 365 Génération automatique code Barre EAN13

Sequoyah à dit:

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

VB:

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

Cliquez pour agrandir...

Phébus à dit:

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

Cliquez pour agrandir...

Phébus à dit:

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

Cliquez pour agrandir...

FLAM04 à dit:

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!

Cliquez pour agrandir...