Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code barre 39 et espace

anber

XLDnaute Occasionnel
Bonsoir le Forum,

Quel caractère ou astuce pour avoir un espace dans un code à barre en code 39 dans excel?

Si on utilise la barre d'espace on crée un trou dans le code barre

Quelqu'un a-t-il rencontré ce problème

Merci
 

Victor21

XLDnaute Barbatruc
Re : Code barre 39 et espace

Bonjour, anber, Jean-Claude

Quel caractère ou astuce pour avoir un espace dans un code à barre en code 39 dans excel?

Si on utilise la barre d'espace on crée un trou dans le code à barres
Pour avoir 222 avec une police Code39, je tape sur mon clavier 222, et pour avoir 2 22, je tape 2 22.
Effectivement il y a un trou dans le code à barres ainsi généré, mais il y a également un trou (espace) quelque soit la police utilisée.
 

anber

XLDnaute Occasionnel
Re : Code barre 39 et espace

Bonjour Victor21,

Bien d'accord avec toi, mais ce ne pas bon.
espace (en ascii) créé un large espace dans le code barre, alors que ce devrait un caractère "normal" dans le code barre, ce que j'obtiens avec un logiciel spécifique, mais que je n'arrive pas à traduire sous Excel

Merci
 

Modeste geedee

XLDnaute Barbatruc
Re : Code barre 39 et espace

Bonsour®
as-tu consulté le lien fourni par JCGL (site de GrandZebu)

tu y as un code qui fonctionne !!!
VB:
Public Function Code39$(chaine$)
  'V 1.0
  'Paramètres : une chaine
  'Retour : * une chaine qui, affichée avec la police CODE39.TTF, donne le code barre
  '         * une chaine vide si paramètre fourni incorrect
  Dim i%
  Code39$ = ""
  If Len(chaine$) > 0 Then
  'Vérifier si caractères valides
    For i% = 1 To Len(chaine$)
      Select Case Asc(Mid$(chaine$, i%, 1))
      Case 32, 36, 37, 43, 45 To 57, 65 To 90
      Case Else
        i% = 0
        Exit For
      End Select
    Next
    If i% > 0 Then
      Code39$ = "*" & chaine$ & "*"
    End If
  End If
End Function
 

Pièces jointes

  • Capture.JPG
    51.7 KB · Affichages: 595
  • Capture.JPG
    51.7 KB · Affichages: 420
  • Capture.JPG
    51.7 KB · Affichages: 466
Dernière édition:

Discussions similaires

Réponses
2
Affichages
220
Réponses
10
Affichages
327
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…