XL 2016 Création d'une étiquette CB avec Excel

[lincoln75]

Bonjour à tous

Je voudrais pouvoir créer une étiquette CB pour la coller dans le dossier de mes clients
J'ai créé un tableau avec 5 colonnes contenant un numéro de client, son nom prénom sa DDN et le CB correspondant au numéro
Je voudrais récupérer chacune des 5 cellules dans une seule afin de créer une étiquette
La dernière colonne est un code barre
J'arrive à récupérer les 5 données et à les fusionner dans une seule cellule mais le CB ne s'affiche pas , il reste sous forme de chiffre
Auriez vous une idée pour intégrer le CB dans l'étiquette
Je souhaiterai en plus que pour chaque client 8 étiquettes soient générées
Je vous remercie de l'aide que vous pourrez m'apporter

 

[job75]

Bonjour lincoln75, bienvenue sur XLD,

J'ai le message "Impossible d'ouvrir le fichier etc...".

Enregistrez-le au bon format avant de le déposer ici.

A+

 

[sylvanu]

Bonjour Lincoln, et bienvenu sur XLD, bonjour Job, ( pb refresh )
Votre fichier pose problème à l'ouverture. Pourriez vous le supprimer et le remettre ?

 

[lincoln75]

Bonjour,

Désolé pour ce contretemps
Voici à nouveau le fichier
J'ai vérifié et il s'ouvre correctement
Bonne journée

 

[mapomme]

Bonjour à tous,

Un essai dans le classeur joint.

Je ne dispose pas de la police que vous utilisez pour afficher le code EAN39. J'ai donc utilisé la police libre de droit que j'ai dans mon Windows. En fichier joint la police, le fichier TTF de cette police (pour installer la police, double-cliquer sur le fichier après l'avoir téléchargé ).

A partir du fichier joint, pour utiliser votre propre police, remplacer dans le code "Free 3 of 9 Extended" par votre nom de police "IDAutomationHC39M". Faites de même pour la police de la colonne E de la feuille de calcul.

Cliquez sur le bouton Hop!

Le code dans Module1 :

Sub etiquette()
Dim derligne As Long, nbrcol As Long, nlig As Long, ncol As Long, j As Long, i As Long, s As String, ns As Long
   nbrcol = InputBox("Nombre de colonnes d'étiquettes ?", "Question")
   derligne = Cells(Rows.Count, "a").End(xlUp).Row

   Application.ScreenUpdating = False
   Range("h1").UnMerge
   Range("h1").CurrentRegion.Clear

   nlig = 2: ncol = 8: j = 1
   For i = 2 To derligne
      s = Cells(i, 1) & vbLf & Cells(i, 2) & " " & Cells(i, 3) & vbLf & "né(e) le: " & Cells(i, 4).Text & vbLf
      ns = Len(s)
      s = s & Cells(i, 5)
      Cells(nlig, ncol).Offset(, j - 1) = s
      Cells(nlig, ncol).Offset(, j - 1).Characters(Start:=ns + 1, Length:=99).Font.Name = "Free 3 of 9 Extended"
      Cells(nlig, ncol).Offset(, j - 1).Characters(Start:=ns + 1, Length:=99).Font.Size = 20
      j = j + 1
      If j > nbrcol Then j = 1: nlig = nlig + 1
   Next i
   Columns(ncol).Resize(, ncol).HorizontalAlignment = xlHAlignCenter
   Columns(ncol).Resize(, ncol).VerticalAlignment = xlHAlignCenter
   Columns(ncol).Resize(, ncol).ColumnWidth = 100
   Columns(ncol).Resize(, ncol).EntireColumn.AutoFit
   Columns(ncol).Resize(, ncol).ColumnWidth = Columns(ncol).ColumnWidth + 5
End Sub

 

[lincoln75]

Bonjour à tous,

Un essai dans le classeur joint.

Je ne dispose pas de la police que vous utilisez pour afficher le code EAN39. J'ai donc utilisé la police libre de droit que j'ai dans mon Windows. En fichier joint la police, le fichier TTF de cette police (pour installer la police, double-cliquer sur le fichier après l'avoir téléchargé ).

A partir du fichier joint, pour utiliser votre propre police, remplacer dans le code "Free 3 of 9 Extended" par votre nom de police "IDAutomationHC39M". Faites de même pour la police de la colonne E de la feuille de calcul.

Cliquez sur le bouton Hop!

Le code dans Module1 :

Sub etiquette()
Dim derligne As Long, nbrcol As Long, nlig As Long, ncol As Long, j As Long, i As Long, s As String, ns As Long
   nbrcol = InputBox("Nombre de colonnes d'étiquettes ?", "Question")
   derligne = Cells(Rows.Count, "a").End(xlUp).Row

   Application.ScreenUpdating = False
   Range("h1").UnMerge
   Range("h1").CurrentRegion.Clear

   nlig = 2: ncol = 8: j = 1
   For i = 2 To derligne
      s = Cells(i, 1) & vbLf & Cells(i, 2) & " " & Cells(i, 3) & vbLf & "né(e) le: " & Cells(i, 4).Text & vbLf
      ns = Len(s)
      s = s & Cells(i, 5)
      Cells(nlig, ncol).Offset(, j - 1) = s
      Cells(nlig, ncol).Offset(, j - 1).Characters(Start:=ns + 1, Length:=99).Font.Name = "Free 3 of 9 Extended"
      Cells(nlig, ncol).Offset(, j - 1).Characters(Start:=ns + 1, Length:=99).Font.Size = 20
      j = j + 1
      If j > nbrcol Then j = 1: nlig = nlig + 1
   Next i
   Columns(ncol).Resize(, ncol).HorizontalAlignment = xlHAlignCenter
   Columns(ncol).Resize(, ncol).VerticalAlignment = xlHAlignCenter
   Columns(ncol).Resize(, ncol).ColumnWidth = 100
   Columns(ncol).Resize(, ncol).EntireColumn.AutoFit
   Columns(ncol).Resize(, ncol).ColumnWidth = Columns(ncol).ColumnWidth + 5
End Sub

Merci mapomme,

J'ai pu tester le fichier et c'est exactement ce que je souhaitais
J'ai deux petites demandes supplémentaires si le code n'est pas trop compliqué à modifier:
- est-il possible de mettre le "Nom du client" en gras sur l'étiquette
- avoir 6 étiquettes qui s'affichent pour chaque client

Encore merci pour votre aide
Je vous souhaite une bonne journée